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INTRODUCTION 


Ce livre est une introduction à quelques-unes des techniques de 
programmation graphique qui peuvent être exploitées sur l'ordinateur 
Amstrad CPC 464. Les différents chapitres traitent de l’animation — de 
caractères ou de dessins —, de la création de courbes et de diagram- 
mes et de la possibilité d'utiliser des modèles de dessin. 

Chaque chapitre comporte des programmes de démonstration qui 
présentent pour la plupart un intérêt réel. Par exemple, le Chapitre 2 
contient un programme qui permet à l'utilisateur de concevoir ses 
propres caractères sur l'écran et de les sauvegarder dans un fichier ; 
le Chapitre 3 propose des sous-programmes qui autorisent la cons- 
truction de diagrammes sectoriels ombrés et le Chapitre 4 un pro- 
gramme qui permet d'effectuer un dessin sur l'écran, d’en effacer 
n'importe quelle zone, de lui ajouter des détails et de sauvegarder 
l'image finale dans un fichier. 

Ce livre suppose la connaissance du BASIC et de certaines notions 
telles que les boucles, les décisions et les sous-programmes. Bien qu'ils 
puissent utiliser de nombreux programmes tels quels, les débutants 
tireront certainement un meilleur profit de cet ouvrage en commen- 
çant par lire Amstrad premiers programmes de Rodnay Zaks (égale- 
ment publié chez Sybex). | 

Pour les lecteurs qui possèdent déjà une certaine pratique du BASIC 
mais qui n’ont pas lu ce premier livre, le Chapitre 1 en reprend 
quelques éléments qui permettent d'introduire les commandes gra- 
phiques élémentaires disponibles sur l'Amstrad. 


NOTIONS ÉLÉMENTAIRES 
DE GRAPHISME 


AFFICHAGE SUR L'ÉCRAN 


Il'existe de nombreux types de supports papier destinés à des utili- 
sations différentes. Un architecte ne dessine pas des plans de mai- 
sons sur un bloc-notes et un romancier ne se sert pas de copies 
d'écolier. En ce qui concerne le dessin sur ordinateur, l'écran est 
l'équivalent d’une feuille de papier et il est utile de pouvoir modifier 
son affichage en fonction du but poursuivi. 


La commande MODE suivie du nombre 0, 1 ou 2 sélectionne l’un 
des trois modes d’affichage de l’Amstrad. Chaque mode autorise l’af- 
fichage sur l’écran d’un certain nombre de caractères par ligne, un 
nombre de couleurs simultanées particulier et un degré de résolu- 
tion graphique défini (c'est-à-dire une certaine précision du dessin). 


| Mode | Nombre de lignes Caractères par ligne 
0 





20 
40 
80 


Figure 1.1 : Les trois modes d'affichage disponibles sur l'’Amstrad CPC 464. 


Lors de la frappe d’un texte important à partir du clavier, il est pré- 
férable de disposer d’une taille d'affichage maximale. Dans ce cas, 
le meilleur mode est le mode 2, car l’Amstrad peut alors afficher 
25 lignes de 80 caractères. 


L'ordinateur se replace automatiquement en mode 1 lors d’une réi- 
nitialisation ou de la mise hors tension. Ce mode comporte 25 lignes 
de 40 caractères. Le mode 1 est celui qui affiche les caractères les 
plus lisibles et peut être considéré comme le mode de ‘“‘travail”’ c'est- 
à-dire celui que l’on utilise pour envoyer des commandes à 
l'ordinateur. 


Le mode 0 affiche 25 lignes de 20 caractères ; c’est le plus intéres- 
sant pour la création de graphisme en couleur, car il permet l'emploi 
de seize couleurs simultanément. 
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Dans ces trois modes, le texte peut être affiché à n’importe quel 
endroit de l'écran, spécifié par ses coordonnées : 


10 MODE 1 

15 PRINT ‘Début d'affichage en (10,12) 
20 LOCATE 10,12 

30 PRINT ‘C'est ici !”” 


La position (10,12) représente la position d’un caractère et XX,YY 
sont les coordonnées texte de cette position. Le premier nombre 
s'appelle coordonnée X et le second, coordonnée Y. Dans cet exem- 
ple, LOCATE 10,12 provoque l'affichage à partir de la dixième colonne 
et de la douzième ligne. On peut utiliser la commande CLS pour 
effacer l'écran après le déroulement du programme. La ligne 20 indi- 
que à l’Amstrad d'afficher ce qui suit aux coordonnées spécifiées dans 
la commande. Les coordonnées varient en fonction du mode, puisque 
chaque mode affiche un nombre de caractères par ligne différent. 





Figure 1.2 : Affichage en mode 1. 
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Figure 1.3 : Écran graphique indiquant le point (200,300). 


En fait, l'affichage sur des positions de caractères n'offre que de 
tristes perspectives en matière de graphisme. Le mode 2 à 25 lignes 
de 80 caractères, mais l'élaboration d’un dessin en utilisant la posi- 
tion des caractères ne donne que de piètres résultats. Heureusement, 
chaque position peut être subdivisée en éléments plus petits appelés 
pixels. Cela permet l'affichage de lignes plus élégantes. Comme le 
nombre de caractères par ligne, la taille d’un pixel varie d'un mode 
à l’autre. 

Cependant, ce système de coordonnées n’est pas adapté à la loca- 
lisation des pixels, car chaque position de caractères se compose de 
plusieurs pixels. L'Amstrad utilise donc un système de coordonnées 
différent pour décrire la position d’un pixel et le localise à l’aide des 
coordonnées graphiques. 


L'ÉCRAN GRAPHIQUE 


Le système de coordonnées graphiques ressemble à celui des coor- 
données texte, mais il ne fonctionne pas exactement de la même 
façon. L'écran graphique est divisé horizontalement en 640 points 
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et verticalement en 400 points. On peut identifier n'importe quelle 
position de cet écran. 

La position du point de la Figure 1.3 est (200,300). On remarque 
que ces coordonnées graphiques sont évaluées à partir du bas de 
l'écran et que le point inférieur gauche a pour coordonnées (0,0). 
Cela peut prêter à confusion, car en coordonnées texte, le caractère 
supérieur gauche a pour coordonnées (1,1). On remarque également 
que, la numérotation commençant à 0, le point supérieur droit a pour 
coordonnées (639,399) et non pas (640,400). 

Le programme suivant est une démonstration de deux commandes 
graphiques élémentaires disponibles sur l’Amstrad : 


10 MODE 1 

20 MOVE 124,156 
30 DRAW 300,300 
40 DRAW 200,400 
50 DRAW 124,156 


Nous utilisons ici le curseur graphique pour dessiner des lignes sur 
l'écran. Normalement, les curseurs graphique et texte sont confon- 
dus, mais, dès qu’une commande graphique est employée, c'est le 
curseur graphique jusqu'alors invisible qui est utilisé. 

La commande MOVE de la ligne 20 provoque l’‘’apparition’’ du 
curseur graphique au point (124,156). La commande DRAW le 
déplace à partir de sa position (124,156) jusqu'aux nouvelles coor- 
données (300,300) en traçant une ligne entre les deux points. Les deux 
commandes DRAW des lignes 40 et 50 dessinent les deux autres côtés 
du triangle. 

En résumé, la commande MOVE x,y déplace le curseur graphique 
jusqu'au point x,y sans rien dessiner ; DRAW x,y dessine une ligne 
à partir du dernier point mentionné dans une commande MOVE ou 
DRAW et jusqu’au point de coordonnées x,y. Pour dessiner facile- 
ment des images complexes, il suffit de stocker les coordonnées x 
et y des points dans des instructions DATA puis de les lire. 


10 MODE O0 
20 x=1 
29 REM dessin d'une figure avec MOVE et DRAN 


30 HHILE x>0 


= 41. 


4O READ x,y 


50 READ x1,y1 


60 MOVE x,y 


70 DRAH x1,y1 


80 LOCATE 1,24: PRINT 
r$=INKEYS: REND 


90 REND 
100 END 


110 DATA 
, 364, 260, 


120 DATA 
, 248, 352, 


130 DATA 
, 200,214, 


140 DATA 
, 272,190 


150 DATA 
, 324, 204, 


160 DATA 
, 296, 242, 


170 DATA 
, 238,262, 


180 DATA 
, 180, 296, 


190 DATA 
, 380,294, 


200 DATA 
, 292, 326, 


210 DATA 
272,216, 
, 280, 230, 
220 DATA 


230 DATA 


308, 162, 344, 
364, 260, 360, 


360, 310, 336, 
248, 352,212, 


212, 342, 200, 
200, 214,216, 


216,174,252, 
272,190, 256, 
324,208, 324, 


256, 238, 268, 
276, 242,276, 


288,284, 300, 
204, 282,252, 


252, 294,232, 
186, 296,172, 


172, 266,192, 
380, 294, 364, 


320; 348,332, 
272,354, 2680, 
224, 344, 216, 
272, 230,276, 
284,212 


288,212,284, 


1, -1 


x" "sys: r$="": RHILE r$="": 


174, 344,174, 360, 216, 360, 216 
310 


344, 336, 344, 292, 356, 292, 356 
342 


316, 200, 316, 196, 246, 196, 246 
174 


166, 316,198, 300, 190, 300, 190 


198, 244, 200, 244, 210, 244, 204 
198 


232, 268, 232, 288, 232, 288,232 
234 


296, 300, 296, 324, 286, 324, 286 
294 


280, 232, 280, 264, 280, 196, 280 
266 


236, 364, 236, 384, 266, 384, 266 
282 


324, 312, 324, 312, 352, 288, 354 
326,264, 348 


334,264, 344, 268, 228, 268,218 
228, 276,214, 280, 214, 280,230 


230, 288, 228,288, 220 
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Des effets impressionnants peuvent être générés à l’aide des deux 
instructions MOVE et DRAW. On peut élaborer des courbes à partir 
de lignes droites en déplaçant les extrémités de ces lignes d’une dis- 
tance déterminée à chaque itération : 


1 MODE 1 
10 x=100: y=100 


20 maximum=300 

30 stepsize=10 

4O FOR number=0 TO maximum STEP stepsize 
50 MOVE xtnumber,, y 

60 DRAR xtmaximum, y+number 

70 MOVE x, y+number 

80 DRAR xtnumber, ytmaximum 


90 NEXT 


LA RÉSOLUTION DES DIFFÉRENTS MODES 


Bien que l'écran graphique soit divisé en 640 points horizontale- 
ment et 400 points verticalement, l’Amstrad ne peut pas réellement 
les individualiser. L'écran graphique est le même dans tous les modes, 
mais la distinction entre les points est meilleure dans l’un des modes 
que dans les autres. Nous allons à nouveau faire tourner le programme 
après avoir modifié la ligne 1 : 


1 MODE 0 


Le dessin reste inchangé, mais les traits qui le composent sont plus 
épais et l’image semble plus ‘’grossière’”’. On tape maintenant : 


10 MODE 2 
20 MOVE 200, 300 


30 DRAR 200, 399 


RE 


40 
50 
60 
70 
80 
90 


Cette fois-ci, les lignes sont parfaites. Le mode 2 est appelé mode 
haute résolution car il permet à l’ Amstrad de distinguer 640 points 
horizontaux et 200 points verticaux. Grâce à cela, la commande 


MOVE 
DRAR 
MOVE 
DRAR 
MOVE 


DRAR 


201, 200 
201, 399 
202,100 
202, 399 
203,0 

203, 399 


DRAW génère de très jolies lignes. 


En mode 2, l’Amstrad ne fait pas de différence entre deux points 
dont les coordonnées verticales sont trop proches. Il traite les points 
(10,10) et (10,11) comme étant parfaitement identiques. En fait, les 
modes 1 et O ont la même résolution verticale de 200 points que le 
mode 2, mais leur résolution horizontale est beaucoup moins bonne. 


On tape : 
10 
20 
30 
40 
50 
60 
70 
80 


90 


puis on exécute à nouveau le programme. Le mode 1 est le mode 
résolution intermédiaire ; dans ce mode, l’Amstrad ne distingue que 
320 points horizontaux. Cela signifie par exemple que (200,300) et 
(201,300) sont traités comme des points identiques. On tape ensuite : 


MODE 
MOVE 
DRAN 
MOVE 
DRAKR 
MOVE 
DRAK 
MOVE 


DRAKH 


10 MODE 0 


1 
200, 300 
200, 399 
201,200 
201, 399 
202,100 
202, 399 
203,0 


203, 399 
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puis on fait tourner le programme pour la troisième fois. Le mode 
0 est le mode basse résolution et ne peut identifier que 160 points 
horizontaux différents. 

Il y a bien sûr une autre raison qui justifie l’utilisation d’un mode 
générant des images grossières alors que le mode 2 est accessible. 
En effet, bien que le mode 0 soit le mode basse résolution, il permet 
l'affichage de dessins en seize couleurs simultanées. On voit, Figure 
1.4, que les modes 1 et 2 n'offrent pas les mêmes possibilités. 


Résoluti hi Nombre de couleurs 
FOMVOn-OrapnIque affichées simultanément 


160200 
320200 
640200 





Figure 1.4 : Les différentes résolutions graphiques et le nombre de couleurs disponi- 
bles dans chacun des modes. 


L'Amstrad a une taille mémoire limitée. Il ne peut enregistrer dans 
sa RAM (mémoire vive) qu'une certaine quantité d'informations rela- 
tives à l’écran. Comme c'est souvent le cas en informatique, il faut 
faire un choix ; la RAM peut servir à enregistrer de très nombreux 
points avec deux couleurs possibles, ou un nombre de points moins 
important avec quatre couleurs possibles, ou encore bien moins de 
points avec un choix de seize couleurs. L'ordinateur offre plusieurs 
possibilités et il faut sélectionner le mode qui semble le mieux cor- 
respondre au but recherché. 


L'INSTRUCTION PLOT 


Chacune des lignes tracées dans les programmes précédents était 
effectivement constituée d’un certain nombre de pixels. L’Amstrad 
peut afficher des pixels individuellement, bien qu’un pixel unique 
soit relativement difficile à visualiser en mode 2. En fait, chaque pixel 
est constitué d’un certain nombre de points que la précision des trois 
modes ne permet pas d'identifier. Dans chacun de ces modes, le pixel 
est le plus petit groupe de points qui puisse être localisé. 


452 


Mode 0 4 x 2 pixel 


Mode 1 2 x 2 pixel 


Mode 2 1 x 2 pixel 


Figure 1.5 : Taille d'un pixel graphique dans chacun des modes. 


Il peut paraître étrange de disposer de plus de points qu'il n’est 
possible d’en afficher, mais cela permettra des améliorations ultérieu- 
res de la résolution graphique sans que l’on ait à modifier complète- 
ment le système de coordonnées. 

L'instruction PLOT s'emploie comme les instructions MOVE et 
DRAW. Elle doit être suivie des coordonnées x et y du pixel à tracer. 
Le programme suivant dessine six pixels sur l'écran. 


10 MODE 0 

20 PLOT 160,200 
30 PLOT 320,200 
40 PLOT 324,200 
50 PLOT 328,200 
60 PLOT 332,200 
70 PLOT 480,200 


En mode O, la résolution est si basse que les quatre pixels tracés 
lignes 30 à 60 se rejoignent pour former une ligne ; en mode 1, les 
pixels sont individualisés et en mode 2, ils sont si petits qu’on ne les 
distingue plus. 
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LA COULEUR 





A la mise sous tension, l'ordinateur affiche, dans tous les modes, 
des caractères et des dessins jaunes sur fond bleu. || existe en fait 
vingt-sept couleurs différentes, même si certaines d’entre elles sont 
difficiles à distinguer. Chaque couleur possède un numéro associé 
à l'instruction INK, que l’on utilise à la place du nom de la couleur 
chaque fois que l’on veut s’y référer. 


Noir 

Bleu 

Bleu vif 
Rouge : 
Magenta 
Mauve 
Rouge vif 
Pourpre 
Magenta vif 
Vert 
Turquoise 
Bleu ciel 
Jaune 
Blanc 

Bleu pastel 
Orange 
Rose 
Magenta pastel 
Vert vif: 

Vert marin 
Turquoise vif 
Vert citron 

Vert pastel 
Turquoise pastel 
Jaune vif 
Jaune pastel 
Blanc brillant 
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Figure 1.6 : Les vingt-sept couleurs d'encre (INK) disponibles sur l'Amstrad CPC 464. 
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A ce stade, il est important de savoir que l'ordinateur n'utilise pas 
vraiment la totalité de l'écran pour son affichage. Il opère à l’inté- 
rieur d’un vaste rectangle entouré d’une bordure qui n’est pas utilisée. 
Bien qu’elle ne soit pas employée, cette bordure a la même couleur 
que le reste de l’écran, mais elle ne fait pas réellement partie de la 
mémoire de l'ordinateur, puisqu'elle ne sert jamais à l’affichage de 
caractères ou de dessins. 


La bordure peut prendre 
une couleur quelconque 
dans n'importe quel mode. 


_ Les couleurs utilisées dans 
la zone texte dépendent du 
mode. 


Figure 1.7 : Bordure de l'écran sur un moniteur ou un récepteur de télévision. 


On peut attribuer à la bordure n'importe quelle couleur et n’im- 
porte quel mode. Le choix de sa couleur ne subit aucune restriction ; 
le mode 2 ne permet d'afficher que deux couleurs simultanément 
à l’intérieur du rectangle, mais la couleur de la bordure est une cou- 
leur quelconque. On tape : 


10 MODE 2 
20 BORDER 0 


On voit, Figure 1.6, que 0 est le nombre correspondant à la cou- 
leur noire. La frappe de BORDER 0 génère l'affichage d’une bordure 
noire. On peut s'entraîner à établir d’autres couleurs, n'importe quel 
numéro compris entre 0 et 26 pouvant être employé (c’est-à-dire qu'il 
existe 27 couleurs possibles). Par exemple, BORDER 26 génère une 
bordure blanche. 
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La couleur de la bordure peut être établie exactement de la même 
manière en mode 0 ou en mode 1. Quand on change de mode après 
la définition de la couleur de la bordure, celle-ci garde sa couleur. 
A la mise sous tension ou après une initialisation, la bordure est bleue, 
c'est-à-dire BORDER 1. 


LES COULEURS DU “STYLO” ET DU PAPIER" 


Les couleurs utilisées dans le rectangle principal peuvent également 
être modifiées. Le problème de la mémoire RAM devient alors crucial 
et le nombre de couleurs qui peuvent être affichées simultanément 
sur l’écran subit quelques restrictions. 

Il'est possible de modifier la couleur du ‘’stylo’’ de l’Amstrad à l’aide 
de la commande PEN. On tape : 


MODE 0 
PEN 4 


D'après la Figure 1.6, cette commande devrait donner la couleur 
magenta aux caractères, mais la sélection des couleurs de l'écran prin- 
cipal n’est pas identique à celle de la bordure. Le choix de PEN 4 
entraîne un affichage de caractères blancs et celle de PEN 5 celui de 
caractères noirs. 

On peut même obtenir des caractères clignotants bleu/jaune en 
tapant : 


PEN 14 


Il y a seize possibilités utilisables dans n'importe quel mode et la 
Figure 1.8 montre les numéros des stylos et les couleurs d'encre cor- 
respondantes dans chaque mode. On remarque que ce numéro peut 
correspondre à des couleurs différentes selon le mode. Cela signifie 
qu’un programme fonctionnant parfaitement en mode 0 peut géné- 
rer un écran vide en mode 2 si le numéro choisi pour la commande 
PEN correspond à la couleur du fond dans ce mode. Nous voyons 
que les seize possibilités ne sont pas d’une grande utilité en mode 2, 
car huit d’entre elles correspondent au jaune et les huit autres au bleu. 
Nous verrons plus loin comment modifier les couleurs qui peuvent 
être employées dans chaque mode. La couleur du fond peut égale- 
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ment être modifiée à l’aide de la commande PAPER. On initialise l’or- 
dinateur en maintenant enfoncées les touches CTRL et SHIFT et en 
tapant la touche ESC ; l’écran est en mode 0, on tape : 


PAPER 3 


Les caractères tapés à partir de maintenant sont affichés sur fond rouge. 
L'ensemble du rectangle peut avoir cette nouvelle couleur si on uti- 
lise la commande CLS. 


Numéro PEN Mode Mode 
ou PAPER 0 2 
0 1 1 1 
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Figure 1.8 : Couleurs du stylo (PEN) ou du papier (PAPER) dans les différents modes. 
En mode 0, la commande PEN ou PAPER 14 ou 15 génère un affichage clignotant 
dans les deux couleurs indiquées. 


En mode 0, PAPER a les seize mêmes couleurs que PEN. PEN 14 
génère un affichage de caractères clignotants bleu/jaune et PAPER 14 
l'affichage d’un fond clignotant bleu/jaune. La Figure 1.6 peut aider 
l'utilisateur à sélectionner ses couleurs. Par exemple, pour obtenir 
des caractères rouges sur fond blanc en mode 0, on tape : 


INK 3 
PAPER 4 
CLS 
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Bien sûr, 


les commandes PEN et PAPER peuvent être insérées dans 


des programmes. 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 


160 


MODE O 
LOCATE 4,7 
PEN 3 
PAPER 5 
PRINT'"'rouge sur noir" 
LOCATE 4,13 
PEN 6 
PAPER 3 
PRINT"bleu sur rouge" 
LOCATE 4,19 
PEN 5 
PAPER 6 
PRINT"noir sur bleu“ 
REM retour a la normale 
PEN 1 


PAPER O 


On modifie la ligne 10, puis on fait tourner ce programme dans 


les deux au 


tres modes. On obtient alors des résultats amusants car 


les couleurs sont différentes dans les autres modes. Voici un autre 


exemple : 
10 
20 
30 
40 
50 


MODE O0 


redpeninmode0=3 
blackpaperinmode0=5 
PEN redpeninmodeO 


PAPER blackpaperinmodeO 
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60 CLS 

70 LOCATE 8,12 

80 PRINT"ca y est" 

90 REM retour a la normale 
100 PEN 1 


110 PAPER O 


Les deux dernières lignes restituent les couleurs initiales. 

Un problème se pose fréquemment quand on joue avec les cou- 
leurs : si la couleur d'écriture est identique à celle du fond, toute 
lecture est impossible. On peut contourner cette difficulté en resti- 
tuant la couleur initiale avant la fin du programme. Une autre solu- 
tion consiste à programmer l’une des touches fonction de l’Amstrad 
pour qu'elle initialise les couleurs d'écriture et de fond : 


KEY 128, CHR$(13) + ‘INK 0,1 : INK 1,24” + CHR$(13) 


EXERCICES 


1. Écrire un programme qui détermine un point aléatoire sur l’écran et le 
relie par un trait à un autre point aléatoire dans une couleur également 
aléatoire. Le processus reprend à partir du deuxième point et se répète 
jusqu'à ce que 100 lignes aient été tracées. 


. Tracer une fusée, à l’aide des commandes MOVE et DRAW. Donner à 
cette fusée un nom qui sera affiché. 


. Afficher ‘Différentes couleurs’ au milieu de l’écran en mode 0, chaque 
lettre ayant une couleur différente. 





GRAPHISME ET COULEUR 


L'élaboration de dessins à partir de traits colorés est facile à réaliser 
sur l’Amstrad. Les commandes MOVE et DRAW employées seules 
tracent toujours des lignes de couleur PEN 1 quel que soit le mode. 
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Tous les programmes graphiques que nous avons vus jusqu’à pré- 
sent ont produit des tracés de couleur PEN 1. PEN 1 correspond à 
l'encre (INK) 24 dans tous les modes et les lignes sont donc toutes 
jaune vif. 

Pour obtenir une couleur différente, il faut ajouter une extension 
à la commande DRAW. On réinitialise l’Amstrad et on tape : 


MOVE 100,100 
DRAW 300,300,2 


Une ligne rouge est dessinée avec le stylo PEN 3 entre les points 
(300,300) et (400,0). En mode 1, PEN 3 utilise l'encre n° 6. 


Ces commandes sont aussi faciles à insérer dans un programme. 
Il ne faut pas oublier qu’un programme qui tourne dans un mode 
n’est pas toujours exécutable dans un autre mode à cause des modi- 
fications de numéros d’encre (INK) entre les différents modes. En 
mode 1, le programme suivant dessine un rectangle comportant un 
côté jaune, un cyan et deux côtés rouges. 


10 MODE 1 

20 MOVE 100,100 
30 DRAW 400,100 
40 DRAW 400,300,3 
50 DRAW 100,300,2 
60 DRAW 100,100,3 


On remarque que, dans la ligne 30, aucun numéro n'est spécifié 
pour la commande PEN ; dans ce cas, l’Amstrad utilise automatique- 
ment PEN 1, qui trace une ligne jaune. Si on exécute à nouveau le 
programme, on s'aperçoit qu'il n’y a plus de ligne jaune. 


Chaque fois que l'ordinateur rencontre une commande graphique 
comme DRAW sans que le numéro de PEN soit spécifié, il emploie 
le numéro en cours pour exécuter la commande. Au premier dérou- 
lement, l'Amstrad utilise PEN 1, ligne 30. Après exécution, le dernier 
PEN employé est PEN 3. Cette couleur devient donc la couleur en 
cours et, lors du second déroulement, PEN 3 est employé dans la 
ligne 30, puisqu’aucune valeur n’a été spécifiée pour le stylo. Après 
l'attribution d’une couleur de stylo dans une commande DRAW, 
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toutes les lignes suivantes sont tracées de cette couleur, sauf si une 
nouvelle valeur est introduite pour PEN : 


10 MODE 1 

20 MOVE 200,100 
30 DRAW 400,200,2 
40 DRAW 100,350 
50 DRAW 200,100 


On peut faire tourner ce programme en mode 2, dans lequel PEN 2 
a une couleur d'encre différente. 

Le mode 0 est de loin le meilleur mode pour générer un affichage 
graphique couleur dans la mesure où l’on ne s'attache pas trop à la 
résolution. 


10 MODE 0 

20 x = 0: yl : 
30 couleur = 1 
40 FOR compt = 0 TO 350 STEP 4 

50 MOVE x + compt,y 

60 DRAW x+350 ,y + compt,couleur 
70 MOVE x,y+compt 

80 DRAW x + compt,y + 350 

90 couleur = (couleur +1) MOD 16 
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MODIFICATION DE COULEUR 


Jusqu'à présent, nous n'avons vu que quelques unes des couleurs 
que l’Amstrad peut produire. Il n’y a que seize valeurs de stylo (PEN) 
disponibles, et pourtant la Figure 1.6 montre que l’on peut utiliser 
vingt-sept valeurs d'encre (INK). L'Amstrad permet de modifier la 
valeur d'encre de chaque stylo de telle sorte qu'il est possible de 
choisir n'importe quelle combinaison de couleurs pour un mode 
particulier. 

Cependant, le nombre de couleurs qui peuvent être employées 
simultanément sur l'écran ne change pas. En mode 2, seules deux 
couleurs sont autorisées ; en mode 1, quatre couleurs et en mode 0, 
seize couleurs. Lors de la mise sous tension ou de l’initialisation de 
l'ordinateur, celui-ci se place automatiquement en mode 1 et utilise 
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PAPER 0 qui est bleu (numéro d'encre 1) dans tous les modes et PEN 1 
qui est jaune (numéro d'encre 24) également dans tous les modes. 
On réinitialise l'ordinateur puis on tape : 


INK 1,6 


Tout le texte affiché en jaune sur l'écran devient instantanément rouge 
vif. La commande INK nécessite deux nombres. Le premier est le 
nombre associé à PEN ou PAPER dont la couleur doit être modifiée. 
Le second représente la couleur d'encre que l’on veut attribuer. 

La commande INK 1,6 indique à l’ordinateur d’attribuer à PEN 1 
la couleur d'encre (INK) 6, c’est-à-dire rouge vif. Tout ce qui a été 
tapé ou dessiné précédemment devient rouge. 

Pour remplacer la couleur en cours par la couleur bleu, on tape 


INK 1,2 


Ce qui était rouge devient bleu. Pour revenir à la couleur normale, 
on tape : 


INK 1,24 
On voit, en regardant la Figure 1.8, que PEN 1 est associé à INK 24 
dans tous les modes. 
Il est aussi facile de modifier la couleur du papier (PAPER). Pour 
l'instant, l’ Amstrad utilise PAPER O, c'est-à-dire le bleu. Nous allons 
attribuer à l'affichage la couleur blanc : 
INK 0,26 

Si le texte est difficile à lire, on peut essayer : 
INK 0,6 

ou alors : 


INK 0,0 


Dans tous les modes, PAPER est normalement bleu, avec pour couleur 
d'encre (INK) 1. 
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Il n’est pas nécessaire d’avoir déjà utilisé la commande PEN ou 
PAPER pour la modifier. On réinitialise l'ordinateur, puis on tape : 


INK 3,0 


Apparemment, il ne se passe rien. D’après la Figure 1.8, si on choisit 
PEN 3 en mode 1, le texte sera affiché avec la couleur 6, c’est-à-dire 
rouge vif. Mais nous venons d'employer la commande INK pour attri- 
buer à PEN 3 la couleur INK O, c’est-à-dire noir. On tape : 


PEN 3 


Tout le texte apparaît en noir. On tape ensuite : 
INK 3,6 


Le stylo (PEN 3) et tout ce qu'il affiche maintenant correspond au 
numéro de couleur 6, c’est-à-dire rouge vif. Cette modification de 
couleur reste valide même si on change de mode. 

Il est également possible d'établir deux couleurs clignotantes : 


INK 1,3,26 


Le texte affiché par PEN 1 clignote dans les deux couleurs, rouge 
(INK 3) et blanc (INK 26). 

Une sélection de couleurs clignotantes bien choisies peut servir, 
dans un programme, à donner l'illusion du mouvement. On peut par 
exemple attribuer à PEN 1 un clignotement jaune/rouge et à PEN 2 
un clignotement rouge/jaune. En affichant des caractères alternés avec 
des stylos alternés, on peut créer un effet d’‘’ondulation’’ donnant 
l'illusion du déplacement de la couleur sur la ligne : 


10 MODE 1 

20 INK 1,3,12 
30 INK 2,12,13 
40 pencolour=1 


50 FOR x=1 TO 40 
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60 IF pencolour=1 THEN pencolour=2 ELSE pencolou 
r=i 


70 PEN pencolour 
£0 LOCATE x,13 
99 PRINT CHRS(143); 


100 NEXT 


La commande INK présente un avantage considérable ; elle permet 
de choisir n’importe quelle combinaison de couleurs parmi les vingt- 
sept disponibles. Même dans le mode 2 (qui n'autorise que deux cou- 
leurs), on peut mettre un affichage en valeur en plaçant un texte rouge 
sur un fond blanc au lieu de se limiter aux seules couleurs jaune et 
bleue disponibles à la mise sous tension. Le programme suivant montre 
les 700 combinaisons de couleurs disponibles en mode 2 : 


10 MODE 2 

20 FOR x=0 TO 27 

30 CLS 

4O INK O,x 

50 FOR y=0 TO 27 

60 IF x<>y THEN INK 1,y: PRINT"Encre ‘"; y 
70 reponseÿ="" 

80 RAHILE reponses="" 
90 reponseS$=INKEYS 
100 HEND 

110 NEXT 


120 NEXT 
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EXERCICES 


1. Afficher un nom en caractères clignotants sur l’écran. Choisir la couleur 
du fond de telle sorte que les lettres semblent apparaître et disparaître. 


. Dessiner un feu en employant les couleurs appropriées pour les lignes 


(on peut employer des couleurs clignotantes si nécessaire). 


. Dessiner un crabe rouge sur une plage de sable jaune. Utiliser des 
paramètres pour les instructions PEN et INK de telle sorte que les 
couleurs soient les mêmes quel que soit le mode choisi lors du dérou- 
lement du programme. 
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CODES FT CARACTÈRES 


LE JEU DE CARACTÈRES DE L'AMSTRAD 


L'Amstrad peut afficher sur l'écran de nombreux caractères. En plus 
des caractères alphabétiques et alphanumériques habituels, il peut 
générer des caractères graphiques comme on le voit dans ce 
programme : 


10 MODE 1 

20 FOR code = 32 TO 255 
30 PRINT CHRf(code); 

40 NEXT 


L'Amstrad associe chaque caractère à un numéro de code appelé 
code ASCII ; ce numéro est compris entre 0 et 255. Les codes O0 à 
31 ont une signification particulière, comme par exemple Reculer le 
curseur d’un espace ou Modifier la couleur d'encre INK. Les codes 
32 à 255 servent pour l'alphabet minuscule et majuscule, les chiffres, 
la ponctuation, etc. La ligne 30 du programme indique à l’ordina- 
teur Afficher le caractère qui a le code ASCII suivant. La Figure 2.1 
montre les codes ASCII les plus utiles. 


< 
espace 


0-9 
A-Zz 
a-Zz 





Figure 2.1 : Les codes ASCII les plus utiles. 


Les caractères dont le code est compris entre 0 et 31 peuvent être 
affichés s'ils sont précédés du caractère dont le code ASCII est 1 : 


10 MODE 1 

20 FOR code = 0 TO 31 

30 PRINT CHRS$(1) CHR$(code); 
40 NEXT 
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Cela laisse de grandes possibilités dans le choix des caractères à 
utiliser dans un programme. Cependant, il arrive souvent que le jeu 
de caractères de l’Amstrad ne contienne pas le caractère désiré, par 
exemple lors de l’utilisation d’une langue étrangère ou d’un travail 
mathématique, ou encore dans un programme de jeu. On utilise alors 
la possibilité offerte par l'ordinateur de générer des caractères défi- 
nis par l'utilisateur. Nous allons d’abord voir comment l’Amstrad 
stocke les caractères et pourquoi cette méthode de stockage nous 
limite à 256 caractères prédéfinis avec les codes ASCII O à 255. 


BITS, OCTETS ET SYSTÈME BINAIRE 


Comment l’Amstrad stocke-t-il les informations ? Pour simplifier, 
on imagine que l'ordinateur contient des milliers de commutateurs, 
chacun d’entre eux pouvant être ‘‘’ouvert’’ ou ‘‘fermé’’. Dans l’Ams- 
trad, ces commutateurs sont groupés par huit. Si on représente un 
commutateur fermé par O0 et un commutateur ouvert par 1, toutes 
les combinaisons possibles sont celles qui apparaissent Figure 2.2. 


00000000 
00000001 
00000010 
00000011 


__— — 
_— — 
— — — 
 — — ° 
—_—  — 
— — — 
 — © 
© 


Figure 2.2 : Les 256 combinaisons possibles des 8 ‘‘commutateurs”. 


Il n’est pas très étonnant de constater qu’il existe 256 combinai- 
sons possibles. Chacun de ces nombres est un nombre binaire uni- 
quement composé des chiffres 0 et 1 appelés bits. Chaque combi- 
naison de huit bits s'appelle un octet. 

Le système binaire est un système de calcul en base deux, comme 
on compte en base dix, et chaque nombre binaire équivaut à un 
nombre de notre système de calcul. Il est relativement facile de 
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convertir n'importe quel nombre binaire en nombre décimal, comme 
nous allons le voir un peu plus loin. 


L'octet est l’unité de base du stockage de l'information sur l’Amstrad. 
De nombreuses restrictions de la machine viennent du fait qu’un octet 
(de huit bits) peut être ‘‘’établi”’ de 256 manières différentes. 


Il n'y a que 256 caractères prédéfinis parce que chaque caractère 
correspond à un code de référence ASCII qui est stocké dans un seul 
octet. S'il existait 257 caractères prédéfinis, les informations seraient 
stockées sur deux octets et cela entraînerait une consommation 
d'espace mémoire beaucoup plus importante. 

A chaque caractère prédéfini est associé un code ASCII. 


Chaque caractère est élaboré sur une grille de huit cases sur huit, 
comme le montre la Figure 2.3. 





Figure 2.3 : Lettre majuscule À. 


Chaque case de la grille est ouverte ou fermée (allumée ou éteinte). 
ce qui fait penser aux nombres binaires. En effet, la grille de huit cases 
sur huit est une autre conséquence de la présence des octets de huit 
bits. Chaque rangée de la grille peut être stockée comme un octet 
et, par conséquent, la description complète d’un caractère peut être 
stockée dans huit octets. 
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00011100 
00111100 
01100110 
01100110 
01111110 
01100110 
01100110 
00000000 


Figure 2.4 : Définition des huit octets de la lettre À. 


I n’est pas très facile de travailler sur les nombres binaires, car ils 
sont encombrants et il est fréquent d'introduire ou d'oublier un 0 
ou un 1 par erreur. On peut convertir les valeurs binaires des octets 
en valeurs décimales en faisant la somme des valeurs pondérées de 
chaque bit pour chacune des rangées. L’Amstrad peut simplifier 
considérablement ce processus en effectuant ce travail à notre place ; 
la commande PRINT STR$(nombre) convertit un nombre en une 
chaîne décimale équivalente. Les nombres binaires doivent commen- 
cer par ‘‘&X”, sinon l’Amstrad considère le nombre comme un nom- 
bre décimal très grand constitué de 0 et de 1. Nous allons vérifier 
que nos calculs sont exacts : 


1 


2631 

84268421 

00011000 168 24 
00111100 321684 60 
01100110 643242 102 
01100110 643242 102 
01111110 643216842 126 
01100110 643242 102 
01100110 643242 102 
00000000 0] 


Figure 2.5 : Définition de la lettre À à l’aide des nombres décimaux. 
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10 MODE 1 

20 nombre = 1 

30 WHILE nombre > 0 

40 INPUT ‘‘Entrer le nombre binaire 
precede de &X.'',nombre 

50 PRINT ‘Voici la valeur décimale de ce 
nombre’ STR$(nombre) 

60 WEND 


On a parfois besoin de convertir des nombres décimaux en nombres 
binaires, ce que l’Amstrad fait également : 


10 MODE 1 
20 nombre = 1 
30 WHILE nombre > 0 


40 INPUT ‘’Entrer le nombre decimal'’,nomb 
re 

50 PRINT ‘Voici la valeur binaire de ce 
nombre’’ BIN$(nombre) 

60 WEND 


On remarque, dans ces deux conversions, que le résultat est une 
chaîne. Comme il est impossible d'effectuer des opérations arithmé- 
tiques sur une chaîne, il faut d’abord la convertir en un nombre : 


10 MODE 1 

20 number=1 

30 RHILE number>0 

4O INPUT"taper un nombre decimale “, number 

50 PRINT'"'voici le nombre binaire "BINS(number) 
55 numeric=VAL(BINS(number)) 

56 PRINT"voici le nombre “,numeric 


60 REND 
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DÉFINITION DE CARACTÈRES PROPRES A L'UTILISATEUR 


Nous connaissons maintenant les valeurs des huit octets que 
l’Amstrad utilise pour décrire la lettre A. Il est possible de redéfinir 
n'importe lequel des seize caractères dont le code ASCII est compris 
entre 240 et 255 ; nous allons donc remplacer le caractère 240 par 
la lettre A : 


10 MODE 1 

20 REM SYMBOL definit un caractere 

30 SYMBOL 240,24,60,102,102,126,102,102, 
0 

40 PRINT CHR$(240) 


L'instruction SYMBOL, ligne 30, indique à l’ Amstrad que nous vou- 
lons définir un nouveau caractère. Le premier nombre, 240, donne 
le code ASCII du caractère et les huit nombres suivants définissent 
chaque ‘’rangée’’ de la grille du caractère. 

Pour définir plus de seize codes ASCII, il faut employer l'instruc- 
tion SYMBOL AFTER : 


10 MODE 1 

20 SYMBOL AFTER 65 

30 SYMBOL 65,231,195,153,153,129,153,153, 
255 

40 PRINT CHRS$(65) 


La ligne 20 indique à l'ordinateur que nous voulons redéfinir les codes 
ASCII supérieurs ou égaux à 65. La ligne 30 redéfinit la lettre majus- 
cule A pour que les points allumés s’éteignent et vice versa ; ce carac- 
tère a le code ASCII 65. La définition précédente est perdue ; on peut 
l'obtenir à nouveau en réinitialisant la machine ou en utilisant une 
autre instruction SYMBOL AFTER qui réinitialise tous les caractères 
à leur définition initiale : 


10 MODE 1 

20 SYMBOL AFTER 65 

30 SYMBOL 65,231,195,153,153,129,153,153, 
255 

40 PRINT CHRS$(65) 

50 SYMBOL AFTER 70 


SYSTÈME HEXADÉCIMAL 


Nous avons vu que l’Amstrad peut facilement convertir des nombres 
binaires en nombres décimaux. Mais il est d'usage en informatique 
d'utiliser le système hexadécimal, c'est-à-dire de calculer en base 
seize. 


Nombre décimal Équivalent hexadécimal 


A 
B 
C 
D 


= _— 
mm. =-O0nm 


Oo 
£. 





n 
T1. 


Figure 2.6 : Quelques nombres décimaux et leurs équivalents hexadécimaux. 


Les nombres hexadécimaux sont généralement précédés du signe 
“#&'' pour éviter toute confusion avec les nombres décimaux. Il est 
conseillé de se familiariser avec les nombres hexadécimaux ; nous 
allons donc définir la lettre À dans le système hexadécimal : 


10 MODE 1 

20 SYMBOL 240,&18,8&30,866,&66,&7E,&66,8&6 
6,0 

30 PRINT CHR$(240) 
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Étant donné que l’Amstrad travaille avec des octets, des nombres 
décimaux sans signification apparente prennent leur signification en 
hexadécimal. On s'aperçoit par exemple que l’Amstrad rejette tout 
numéro de ligne supérieur à 65535. Ce nombre semble tout à fait 
arbitraire, mais, une fois converti en hexadécimal, il a pour valeur 
&FFFF et la raison du rejet devient claire : 65535 est le plus grand 
nombre que peuvent contenir deux octets ; l'emploi de deux octets 
signifie qu'il y a 256 x 256 = 65535 différents numéros de ligne 
disponibles. 

L’Amstrad permet d'effectuer facilement la conversion des nombres 
décimaux en nombres hexadécimaux : 


10 MODE 1 

20 nombre =1 

30 WHILE nombre > 0 

40 INPUT ‘’Entrer le nombre decimal'’,nom 
bre 

50 PRINT ‘’En hexadecimal ce nombre est” 
,HEXS$ (nombre) 

60 WEND 


La conversion du système hexadécimal en système décimal néces- 
site à nouveau l’emploi de l'instruction PRINT STR$(nombre), mais 
cette fois-ci, pour indiquer que le nombre concerné est un nombre 
hexadécimal, il est précédé du signe ‘&’” : 


JEUX 


10 MODE 1 

20 nombre =1 

30 WHILE nombre > 0 

40 INPUT ‘’Entrer le nombre hexadecimal p 
recede de &‘’’, nombre 

50 PRINT ‘’En decimal ce nombre est'’,STR 
$(nombre) 

60 WEND 


Les caractères définis par l’utilisateur sont particulièrement utiles 
dans les programmes de jeux. Le programme suivant définit un carac- 
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tère ‘’chien’” qui est ensuite affiché à divers endroits de l'écran, de 
manière aléatoire : 


10 MODE O 

20 SYMBOL 240, 0,4, 7,132, 124,130, 130,0 
30 FOR randomdogs=1 TO 30 

40 randomx=INT(19*RND( 1) +1) 

50 randomy=INT( 24XRND( 1) +1) 

60 pencolour=INT(15*RND( 1) +1) 

70 PEN pencolour 

80 LOCATE randomx, randomy 

90 PRINT CHRS( 240) 


100 NEXT 


Pour déplacer le chien sur l'écran, il faut afficher un espace sur 
la position en cours (pour effacer l’ancien caractère), puis afficher 


la nouvelle position : 
10 MODE O0 
20 SYMBOL 240,0,4,7,132,124, 130,130, 0 
30 dog$=CHRS( 240) 
4O PEN 1 
50 dogx=13: dogy=10 
60 reponse$="" 
70 HHILE reponseS$<>"e" 
80 neny=dogy: nerx=dogx 
90 reponse$S=INKEYS 
100 IF reponseS="a" AND dogy>1 THEN nexy=dogy-1 


110 IF reponse$="z" AND dogy<25 THEN nery=dogy+i 
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120 IF reponse$="," AND dogx>1 THEN nenx=dogx-1 


130 IF reponse$="." AND dogx<20 THEN nenwx=dogx+i 


140 IF dogx<>nexx OR dogy<>neny THEN LOCATE dogx 
, dogy: PRINT" "“;,:dogx=nexx: dogy=neny 


150 LOCATE dogx, dogy 


160 PRINT dogS 


170 HEND 


On peut rendre l'animation plus intéressante en définissant une série 
de caractères qui ne sont affichés que si le déplacement est effectué 
dans une direction particulière. On peut modifier le programme ci- 
dessus pour illustrer cette possibilité ; au lieu de définir quatre nou- 
veaux caractères, nous allons nous servir des caractères prédéfinis 
dont les codes ASCII sont compris entre 240 et 243. Ces caractères 
sont des flèches pointant dans différentes directions. 


10 
20 
40 
50 
60 
70 
80 


90 


MODE O 

arron$S=CHRS( 240) 

PEN 1 

arronx=13: arrony=10 
reponse$="" 

HHILE reponse$<>"e" 
neny=arrony: neñx=arronx 


reponseS$S=INKEY$S 


100 IF reponse$="a" AND arrony>1 THEN neny=arron 
y-1: arron$=CHRS$S(240) 


110 IF reponseS="z" AND arrony<25 THEN neny=arro 
#y+1: arron$=CHR$S(241) 


120 IF reponseS="," AND arronx>1 THEN nenx=arron 
x-1: arron$=CHRS( 242) 


130 IF reponse$="." AND arronx<20 THEN nenx=arro 
Rx+1: arron$S=CHRS( 243) 
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140 IF arronx<>nenx OR arrony<>nery THEN LOCATE 
arronx, arronry: PRINT" “;: arronx=nenx: arrony=neny 


150 LOCATE arronx,arrony 
160 PRINT arronS 


170 HEND 


La structure de ce programme peut servir de base à de nombreux 
jeux. 

Un des problèmes engendrés par la création de caractères définis 
par l'utilisateur est que le dessin des caractères à la main est fasti- 
dieux et que, souvent, le résultat affiché sur l’écran est très différent 
de l’effet recherché. Le programme de conception de caractères de 
la cassette de présentation de l’Amstrad comporte un défaut impor- 
tant : il n'affiche pas la définition SYMBOL nécessaire pour recréer 
un caractère. 

Le programme suivant permet de créer des caractères sur l'écran. 
Il affiche la définition SYMBOL nécessaire à la production d’un carac- 
tère et offre la possibilité de sauvegarder ces données dans un fichier. 
Cela permet de constituer une ‘‘bibliothèque’’ de caractères définis 
par l'utilisateur qui peut servir dans des programmes ultérieurs : 


10 MODE 1 

20 DEFINT c,n,x,y 

30 DIM code(8,8),symbt( 8) 
4O INK 3,20,6 

50 name$="?2?92??" 

60 number=240 

70 GOSUB 1000 

80 GOSUB 3000: GOSUB 4000 
90 reponseS="" 


100 HHILE reponseS$<>"e" 


110 nexx=x: neny=y 
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120 
130 
140 
150 
160 
170 
180 


190 


reponse$=LORERS(INKREYS) 


IF 
IF 
IF 
IF 
IF 
IF 


IF 


reponse$="a" AND y>starty THEN neny=y-1 


reponseS$="z" AND y<starty+7 THEN neñy=y+1 


reponse$=", 


reponseS=". 
nenx(>x OR 


reponseS=" 


" AND x>startx THEN nenx=x-1 
"AND x<startx+7 THEN nenx=x+#1 
neny(>y THEN GOSUB 2000 


“ THEN GOSUB 7000: GOSUB 3000 


reponseS$="o" THEN GOSUB 5000: GOSUB 1000: G 
OSUB 3000: GOSUB 4000 


200 IF reponseS$="i" THEN GOSUB 6000: GOSUB 3000: G 
OSUB 4000 


210 PEN 14 


220 LOCATE x,y 


230 PRINT CHRS(203); 


240 REND 


250 END 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 


1100 


CLS 


SYMBOL number, 0, 0, 0,0,0,0,0,0 


PEN 1 


FOR count=1 TO 8 


FOR count1=1 TO 8 


code( count, count1)=1 


NEXT 


NEXT 


startx=2: starty=2 


FOR x=startx TO startx+7 


FOR y=starty TO starty+7 
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1110 LOCATE x, y 

1120 PRINT CHRS(233); 

1130 NEXT 

1140 NEXT 

1150 x=startx: y=starty 
1160 RETURN 

2000 LOCATE x, y 

2010 codex=x-startxt1: codey=y-starty+1 
2020 PEN code codex, codey) 
2030 PRINT CEHRS(233); 

2040 x=nenx: y=neny 

2050 RETURN 

3000 FOR count=1 TO 8 
3010 symb$="8&x" 

3020 FOR count1=1 TO 8 


3030 symb$=symbS+MIDS( STRS(code( count1, count) -1) 
» 2,1) 


3040 NEXT 
3050 symbl count) =VAL( symb$) 
3060 NEXT 


3070 SYMBOL number, symb( 1), symb( 2), symb( 3), symb( 
4), symb(5), symb( 6), symb( 7), symb( 8) 


3080 PEN 1 

3090 LOCATE 1, starty+10 

3100 PRINT'le symbole est: “; CHR$S(number); 

3110 LOCATE 1, starty+12 

3120 PRINT"SYMBOL "; number; symb( 1) ; symb( 2) ; symb( 
3) ; symb( 4) ; symb( 5) ; symb( 6) ; symb( 7) ; symb( 8); 
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3130 
4000 
4010 
4020 
4030 
4040 
4050 
5000 
5010 
5020 
5030 


5040 


RETURN 

PEN 1 

LOCATE 1,starty+15 

PRINT"nom du symbole: ";name$ 
LOCATE 1,starty+17 
PRINT"'numero du symbole: "; number 
RETURN 

LOCATE 1,21 

PEN 1 

INPUT'"nom du symbole"; name$ 
OPENOUT name$ 


RRITE 49, name, number, symb( 1), symb( 2), symb( 


3), symb( 4), symb(5), symb(6), symb( 7), symb( 8) 


5050 
5060 
5070 
5080 
6000 
6010 
6020 
6030 


6040 


CLOSEOUT 

number=number+1 

RETURN 

LOCATE 1,21 

PEN 1 

INPUT'"nom du symbole"; name$ 
OPENIN name$ 


INPUT #9, name$, number, symb( 1), symb( 2), symb( 


3), symb(4), symb(5), symb( 6), symb( 7), Symb( 8) 


6050 
6060 
6070 


6080 


CLOSEIN 
CLS 
FOR count=1 TO 8 


symb$=BINS(symbl count)) 


LATE 


6090 


6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 
6180 
6190 
7000 


7010 
y) =2 


7020 


EXERCICES 


length=LEN( symb$) 
symb$=STRINGS(8-length, "O") +symb$ 
FOR count1=1 TO 8 

LOCATE satetsiconitie Static ntet 
code=VAL(MID$S(symb$, count1,1))+1 
PEN code 

PRINT CHRS(233); 

code( count1, count) =code 

NEXT 

NEXT 

RETURN 

codex=x-startx+1: codey=y-starty+1 


IF codel codex, codey) =1 THEN code( codex, code 
ELSE codel codex, codey) =1 


RETURN 


1. Créer un caractère ‘’araignée’” et écrire un programme qui redéfinit une 
touche quelconque du clavier pour générer cette araignée. 


. Écrire un programme pour déplacer l’araignée sur l’écran. On peut 
utiliser certains sous-programmes de dessin de modèles du chapitre 
précédent. 


. Améliorer le programme précédent pour générer des araignées dirigées 
vers le haut, vers le bas, vers la droite et vers la gauche et afficher le 
caractère correct quand le déplacement est effectué dans une direction 
particulière. 





CARACTÈRES MULTIPLES 


En mode 1, un caractère unique n’est pas très grand et il est par- 
fois préférable de créer une figure plus importante à partir de plu- 


_ 44 — 


sieurs formes. Les caractères peuvent être regroupés pour former une 
chaîne unique si le dessin est complètement horizontal : 


10 
19 
20 
30 
OT) 
50 
60 
70 


MODE 1 

REM on definie 3 caracteres 

SYMBOL 240, 0, 0, 96, 96, 96,127, 18,12 

SYMBOL 241, 0, 0, 0,0, 0,255, 0,0 

SYMBOL 242, 248,132, 132, 255, 255, 255, 72, 43 
lorryS$=CERS( 240) +CHRS( 241) +CHRS( 242) 
LOCATE 18,13 


PRINT lorryS 


Le caractère ‘‘camion’’ peut facilement être placé sous le contrôle 


du clavier : 


pour préserver le réalisme, nous le déplacerons dans une 


seule direction, vers la droite : 


10 
19 
20 
30 
40 
50 
70 
80 
90 
100 
110 
120 
130 
140 


150 


MODE 71 


REM on definie 3 caracteres 

SYMBOL 240, 0, 0, 96, 96, 96,127, 18,12 
SYMBOL 241, 0, 0, 0, 0, 0,255, 0,0 

SYMBOL 242, 248,132, 132, 255, 255, 255, 72, 48 
lorryS=CHRS( 240) +CHR$S( 241) +CHRS( 242) 
x=1: y=13 

LOCATE x,y 
PRINT lorryS 

reponse$="" 

RHILE reponse$«>'"e" 

nenx=x 

reponseS$=LORERS(INKEYS) 

IF reponseS="." THEN nenx=xt1 


IF nenx<>x THEN LOCATE x, y: PRINT" “; lorrys 
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160 x=nenx 


170 REND 


Quand le dessin arrive trop près du bord droit, il est automatique- 
ment affiché au début de la ligne suivante. L'Amstrad n'affiche aucun 
caractère qui déplace le curseur texte en dehors de la fenêtre texte. 
Si un caractère se trouve dans l’une de ces positions, l’ordinateur 


déplace le curseur texte sur une position autorisée en respectant les 
règles suivantes : 


1. Si le curseur dépasse le bord droit de l'écran, il est déplacé sur 
la première position de la ligne suivante. 


2. Si le curseur dépasse le bord gauche de l'écran, il est déplacé sur 
la dernière position de la ligne précédente. 


3. Si le curseur dépasse le bord supérieur de l'écran, l'affichage des- 
cend d’une ligne et le curseur reste sur la nouvelle ligne supérieure. 


4. Si le curseur dépasse le bord inférieur de l'écran, l'affichage monte 
d’une ligne et le curseur reste sur la nouvelle ligne inférieure. 


Même si seul l'avant du camion se trouve dans une position illé- 
gale, l'ordinateur le considère comme une chaîne unique qui se trouve 
tout entière dans une position non autorisée. En conséquence, dès 
que le camion atteint une coordonnée texte x 39, qui placerait le pre- 
mier caractère de la chaîne dans une position de curseur illégale, 
l’Amstrad affiche l’ensemble de la chaîne au début de la ligne sui- 
vante. Il ne faut pas oublier cette caractéristique, car cela signifie que 
la taille d’un caractère multiple impose des restrictions en ce qui 
concerne les positions sur lesquelles il peut être affiché. Dans cet 
exemple, la coordonnée texte x maximale est 38. 


8 
9 






Le curseur recule d’un caractère 
Le curseur avance d'un caractère 
Le curseur descend d'une ligne 

Le curseur monte d’une ligne 


10 
11 






Figure 2.7 : Les quatre codes ASCII qui génèrent le déplacement du curseur. 
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L'affichage d’un dessin vertical semble plus difficile, car chaque par- 
tie nécessite une instruction LOCATE différente. Dans ce cas, nous 
profitons de la possibilité d'utiliser les quatre codes ASCII qui ont pour 
fonction de déplacer le curseur dans certaines directions. En incluant 
des commandes de déplacement du curseur, on peut décrire une 
figure verticale dans une seule chaîne. Ces caractères de déplace- 
ment du curseur ne sont pas affichés par l’Amstrad mais servent seu- 
lement d'instructions de déplacement du curseur texte. 


haut $ 


mil $ 


bas $ 


La fusée pourrait être affichée comme une chaîne unique composée de 
haut $ + CHRS$(8) + CHR$(8) + CHR$(10) 


déplace le curseur vers l'arrière 
et vers le bas prêt à l'affichage 
du caractère suivant 

+ mil $ + CHR$(8) + CHRS$(8) + CHR$(10) 


même déplacement du curseur 





+ bas $ 


Figure 2.8 : Caractère vertical multiple créé à l’aide des touches de déplacement du 
rurseur. 
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La ‘‘fusée’’ peut être affichée sur l’écran à l’aide d’une seule ins- 
truction LOCATE : 
10 MODE 1 
20 SYMBOL 240, 0, 24, 24, 24, 24, 36, 36, 36 
30 SYMBOL 241, 36, 36, 36, 36, 36, 36, 36, 36 
40 SYMBOL 242, 66, 129,129, 129,129, 153,195 


50 rocketS$=CHR$S( 240) +CHRS( 8) +CHRS( 10) +CHRS( 241) + 
CHRS( 8) +CHRS( 10) +CHRS( 242) 


60 x=20: y=20 

70 LOCATE x, y 

80 PRINT rocket$ 

90 reponseS="" 

110 HHILE reponseS$«(>'"e" AND y>1 
120 nery=y 

130 reponseS$=LOHERS(INREYS) 

140 IF reponseS$="a" THEN neny=y-1 


160 IF nery<>y THEN LOCATE x,y+2: PRINT" ‘“:LOCATE 
x, nexy: PRINT rocketS 


170 y=nery 
180 HEND 


Malheureusement, l'Amstrad a ‘’des habitudes particulières” 
lorsqu'il traite des chaînes contenant des déplacements de curseur. 
La figure ci-dessus est parfaitement verticale et aucune de ses extré- 
mités ne se trouve dans une position illégale. Cependant, l’ordina- 
teur la considère comme une chaîne de sept caractères et par consé- 
quent ne permet pas d'afficher la fusée sur une coordonnée texte 
x supérieure à 34. On peut modifier la ligne 60 de la manière suivante : 


10 MODE 1 


20 SYMBOL 240, 0, 24, 24, 24, 24, 36, 36, 36 
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30 SYMBOL 241,36, 36, 36, 36, 36, 36, 36, 36 
4O SYMBOL 242, 66, 129, 129, 129,129, 153, 195 


50 rocketS$=CHRS$( 240) +CHRS( 8) +CHRS( 10) +CHRS( 241) + 
CHRS( 8) +CHRS( 10) +CHRS( 242) 


60 x=35: y=20 

70 LOCATE x,y 

80 PRINT rocket$ 

90 reponse$="" 

110 HHILE reponseS$<>"e" AND y>1 
120 nery=y 

130 reponse$=LORER$S(INKEYS) 

140 IF reponse$="a" THEN nery=y-1 


160 IF neny<>y THEN LOCATE x, y+2: PRINT" ‘“: LOCATE 
x,nexy: PRINT rocketsS 


170 y=nery 


180 REND 


On peut utiliser les déplacements du curseur pour créer des figures 
plus complexes, mais il ne faut pas oublier les restrictions concer- 
nant la position d'affichage. Pour toutes les figures, mises à part les 
plus simples, il est préférable d'employer une série d'instructions 
LOCATE. Ce petit programme montre les deux possibilités : 


10 MODE 1 

20 SYMBOL 240, 0, 24, 24, 24, 24, 36, 36, 36 

30 SYMBOL 241, 36, 36, 36, 36, 36, 36, 36, 36 

uO SYMBOL 242,66, 129,129, 129, 129,153,195 


50 rocketS=CHRS( 240) +CHR$( 8) +CHR$( 10) +CHR$( 241) + 
CHRS( 8) +CHRS( 10) +CHR$( 242) 


60 x=1: y=20 
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70 LOCATE 3,23 

80 PRINT'caractere definie a l'aide du curseur“ 
90 FOR ycoord=y TO 1 STEP-1 
100 LOCATE x, ycoord+3 

110 PRINT" " 

120 LOCATE x, ycoord 

130 PRINT rocketS 

140 NEXT 

150 reponseS="" 

160 HHILE reponseS$="" 

170 reponseS$=LOHERS(INKEYS) 
180 REND 

190 CLS 

200 x=36: y=20 

210 LOCATE 7,23 

220 PRINT''caractere definie avec LOCATE" 
230 FOR ycoord=y TO 1 STEP-1 
240 LOCATE x, ycoord 

250 PRINT CHRS(240) 

260 LOCATE x, ycoord+1 

270 PRINT CHRS(241) 

280 LOCATE x, ycoord+2 

290 PRINT CHRS(242) 

300 LOCATE x, ycoord+3 

310 PRINT" “ 


320 NEXT 
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On peut obtenir des effets intéressants en définissant des figures 
légèrement différentes affichées alternativement. Cela peut, par 
exemple, illustrer la reptation d’un serpent. 


10 
20 
30 
40 
50 
60 
70 
80 


90 
ake 


100 
110 
120 
130 
140 


150 


MODE 71 

SYMBOL 240, 0, 0, 32, 80, 81, 74, 130 
SYMBOL 241,0, 0, 0,132, 74, 81, 80, 32 
snake1S$=CHRS$S(240) 
snake2$=CHR$S(241) 

snake$=snake1$ 

y=13 

FOR x=1 TO 39 


IF snake$=snake1$ THEN snake$=snake2$ ELSE sn 


$=snake1$ 

LOCATE x,y 

PRINT" "; snakeS 
oldtime=TIME 

KHILE TIME<oldtime+10 
KEND 

NEXT 


De même, on peut définir deux images de camion qui varient légè- 


rement pou 


r donner l'impression que le véhicule est en mouvement, 


ou bien faire bouger la queue du chien : 


10 
20 
30 
40 
50 


MODE 1 

SYMBOL 240, 0, 132, 135, 132, 124, 130, 130, O 
SYMBOL 241,0, 36, 71, 132, 124, 130, 65, O 
dog1$=CHR$S( 240) 


dog2$=CHRS( 241) 


re 


60 dog$=dog1$ 

70 y=13 

80 FOR x=1 TO 39 

90 IF dog$=dog1$ THEN dog$=dog2$ ELSE dog$=dog1$ 
100 LOCATE x,y 

110 PRINT" ‘"; dogS 

120 oldtime=TIME 

130 HHILE TIME<oldtime+30 

140 REND 


150 NEXT 


EXERCICES 


1. Créer une image de bus avec des caractères multiples et la faire se 
déplacer sur l'écran. 


. Dessiner deux caractères circulaires avec une barre en travers placée 
différemment sur les deux figures et les afficher alternativement sur 
l'écran pour donner l'impression d’une roue en mouvement. 


. Ajouter ces roues au bus. 





AMÉLIORATION DE LA RÉSOLUTION 


On peut concevoir de nombreux jeux amusants en utilisant seule- 
ment l'écran texte, mais on est soumis à quelques limites. La meil- 
leure résolution texte est disponible en mode 2, mais celui-ci ne com- 
porte que 25 lignes de 80 caractères. A l'inverse, la moins bonne réso- 
lution graphique offre 160 + 200 points. Heureusement, l'Amstrad 
permet l’affichage de caractères texte sur une position graphique, ce 
qui permet de générer une meilleure animation et donne à l’utilisa- 
teur un contrôle accru dans les jeux. Par ailleurs, cela signifie que 
les graphiques et les diagrammes peuvent être ‘’labellés’” à n'importe 
quel endroit de l'écran. 
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Le passage de coordonnées en mode texte aux coordonnées en 
mode graphique apporte également d’autres changements. Après une 
commande TAG, les caractères ne peuvent plus être affichés avec 
une instruction LOCATE. On utilise à la place la commande graphique 
MOVE pour placer le curseur graphique à l’endroit désiré. L'empla- 
cement du curseur correspond à l'angle supérieur gauche de la grille 
du caractère texte. Le programme suivant déplace un caractère 
unique, ‘‘envahisseur de l’espace’, pour illustrer ce principe. 

10 MODE 1 

20 SYMBOL 240, 24, 60, 126, 219, 255, 255, 165, 165 
30 invader$=CHRS( 240) 

40 graphicsx=100: graphicsy=200 

50 TAG 

60 FOR x=graphicsx TO 600 

70 MOVE x, graphicsy 

80 PRINT" “invaders$; 


90 NEXT 


Le point-virgule placé après l'instruction PRINT est essentiel. Une 
conséquence importante de l’utilisation de l'instruction TAG est que 
les caractères de contrôle (c'est-à-dire ceux dont les codes ASCII sont 
compris entre 0 et 31) sont affichés et non exécutés. Voici un pro- 
gramme qui déplace une fusée : 


10 MODE 1 
_20 SYMBOL 240, 0, 24, 24, 24, 24, 36, 36, 36 
30 SYMBOL 241, 36, 36, 36, 36, 36, 36, 36, 36 
HO SYMBOL 242, 66, 129, 129,129,129,153, 195,129 


50 rocketS=CHRS(240) +CHRS(8) +CHRS( 10) +CHRS( 241) + 
CHRS( 8) +CHRS( 10) +CHRS( 242) 


60 TAG 


70 graphicsx=300: graphicsy=100 
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80 FOR y=graphicsy TO 350 
90 MOVE graphicsx,y-24 
100 PRINT" ‘"; 

110 MOVE graphicsx, y 

120 PRINT rocket; 


130 NEXT 


Les problèmes créés par le déplacement du curseur, aussi bien pour 
le texte que pour le graphisme, nous montrent qu’il est préférable 
de se limiter à des figures simples. Les figures élaborées à partir d’une 
série de caractères horizontaux peuvent être affichées après une ins- 
truction MOVE unique, parce que le curseur graphique se déplace 
automatiquement de la largeur d’un caractère après chaque affichage 
et se trouve donc placé correctement pour générer le caractère 
suivant. Cela est visible avec le camion composé d'une chaîne 
unique : 

10 MODE 1 

20 SYMBOL 240, 0, 0, 96, 96, 96, 127,18,12 

21 SYMBOL 241,0, 0, 0,0, 0,255,0,0 

22 SYMBOL 242, 248,132, 132, 255, 255, 255, 72, 48 
30 lorryS$S=CHRS( 240) +CHRS( 241) +CHRS( 242) 

yO graphicsx=0: graphicsy=200 

50 TAG 

60 FOR x=graphicsx TO 600 

70 MOVE x, graphicsy 

80 PRINT" “lorryS; 


90 NEXT 


La fusée sera affichée grâce à une succession d'instructions MOVE, 
car chaque caractère est au-dessus du précédent : 
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10 
20 
30 
40 
50 
51 
52 
60 
70 
80 
90 
100 
110 
120 
121 
122 
123 
124 


130 


L'instructi 


MODE 1 

SYMBOL 240, 0, 24, 24, 24, 24, 36, 36, 36 

SYMBOL 241, 36, 36, 36, 36, 36, 36, 36, 36 

SYMBOL 242, 66,129, 129,129, 129, 153, 195, 129 
rockettop$=CHRS( 240) 


rocketmidS$S=CHRS(241) 


rocketbotS=CHRS( 242) 
TAG 
graphicsx=300: graphicsy=100 


FOR y=graphicsy TO 350 
MOYE graphicsx,y-48 
PRINT" “; 
MOVE graphicsx, y 
PRINT rockettop$; 
MOYE- graphicsx,y-16 
PRINT rocketmid$; 
MOVE graphicsx,y-32 
PRINT rocketbotsS; 


NEXT 


on TAG peut être annulée dans un programme à l’aide 
de l'instruction TAGOPFF. A la fin d’un programme, elle est automa- 


tiquement désactivée. 


ACCÉLÉRATION DU DÉROULEMENT 


Nous avons remarqué que tout déplacement de figure entraîne un 
déroulement de programme plus lent. Il existe un certain nombre 


de manières d'accélérer le déroulement d’un programme. 
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Tout d’abord, nous pouvons utiliser des nombres entiers chaque 
fois que c’est possible. Cela permet à l'ordinateur d'exécuter plus rapi- 
dement les calculs. L'Amstrad traite tous les nombres comme des réels 
s’il n’a pas reçu d'instruction contraire. Il est possible de déclarer 
entières certaines variables grâce à l'instruction DEFINT : 


1 DEFINT g,x,y 


L'Amstrad traite maintenant toutes les variables numériques commen- 
çant par g, x ou y comme des entiers. La différence de vitesse appa- 
raît lorsque les deux programmes sont comparés : 


1 DEFINT g,x,y 

10 MODE 1 

20 SYMBOL 240, 0, O0, 96, 96, 96, 127, 18,12 

21 SYMBOL 241, 0, 0, 0, 0, 0,255,0,0 

22 SYMBOL 242, 248,132, 132, 255, 255, 255, 72, 48 
30 lorryS=CHR$( 240) +CHRS( 241) +CHRS( 242) 
yO graphicsx=0: graphicsy=200 

50 TAG 

55 starttime=TIME 

60 FOR x=graphicsx TO 600 

70 MOVE x, graphicsy 

80 PRINT" “"“lorrys; 

90 NEXT 

99 totaltime=TIME 

100 TAGOFF 

110 LOCATE 1,20 


120 PRINT"temps “(totaltime-starttime)/300"secon 
des" 
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Une autre méthode pour accélérer le mouvement consiste à prendre 
note du déplacement minimal que l’Amstrad peut afficher dans 
chaque mode. Le déplacement horizontal du caractère d'une seule 
unité en coordonnées x et en mode 0 est si faible que l'affichage a 
lieu sur le même point. || faut se déplacer d’au moins quatre unités 
en mode 0 et de deux unités en mode 1 pour que le déplacement 
soit visible. La résolution verticale est la même dans les trois modes 
et le plus petit mouvement visible correspond à une variation de deux 
unités. 

Enfin, il faut entourer les caractères d’une bordure vide pour que 
le déplacement dans quelque direction que ce soit ne laisse pas de 
traînées. Le second envahisseur de l’espace de la Figure 2.9 laisse 
des lignes qui doivent être effacées après chaque déplacement ; cela 
ralentit le programme. 





Figure 2.9 : Deux caractères ‘‘envahisseur de l'espace” ; le premier est plus utile, 
car sa bordure efface automatiquement l'image précédente. 


POUR TERMINER... 


De nombreux jeux identifient les figures par leur couleur. La com- 
mande TEST (x,y) permet de déterminer la couleur du stylo qui a été 
utilisé pour n'importe quelle position graphique de l’écran. En choi- 
sissant avec soin la couleur des caractères utilisés dans un jeu, on 
peut s'assurer que le programme se comportera différemment si on 
se déplace sur une position contenant un point d’une couleur parti- 


LYS 


culière. Par exemple, toutes les araignées peuvent être roses et, si 
On essaie de déplacer une mouche sur un point rose, le jeu s'arrête : 


5 DEFINT C,x,y 
10 MODE O 


20 SYMBOL 240, 0, 36, 90, 90, 90, 36,0, 0 
30 SYMBOL 241,145, 82,52, 31,248, 44,74, 137 
4O fly$=CHRS$S( 240) 

50 spider$=CHRS(241) 

60 GOSUB 1000 

70 xfly=300: yfly=200 

80 xnen=xfly: ynen=yfly 

90 xtest=xfly: ytest=yfly 

100 MOVE xfly, yfly: PLOT xfly,yfly,1 
110 GOSUB 2000 

120 reponseS="":flydead=0. 

130 RHILE reponse$="" OR flydead=0 
140 xnen=xfly: ynen=yfly 

150 reponseS=LORERS(INKEYS) 


160 IF reponse$="a" THEN ynen=yfly+2: xtest=xnen+ 
16: ytest=ynent8 


170 IF reponse$="z" THEN ynen=yfly-2: xtest=xnent 
16: ytest=yner-24 


180 IF reponseS="." THEN xnen=xfly+4: xtest=xnent 
48: ytest=yner-8 


190 IF reponseS="," THEN xnen=xfly-4: xtest=xnen- 
16: ytest=yner-8 


200 IF xnen<>xfly OR ynen<>yfly THEN GOSUB 2000 
210 REND 


= 58; 


220 MODE 1 

230 END 

1000 MOVE 0,0 

1010 DRAKH 0,0,11 

1020 TAG 

1030 FOR spiders=1 TO 10 

1040 spiderx=INT(600*RND( 1) +20) 
1050 spidery=INT(300*RND( 1) +20) 
1060 MOVE spiderx, spidery 

1070 PRINT spider; 

1080 NEXT 

1090 RETURN 

2000 colour=TEST(xtest, ytest) 
2010 IF colour=11 THEN flydead=1: SOUND 7, 2000 
2020 xfly=xnen: yfly=ynen 

2050 MOVE xfly,yfly 

2060 PRINT f1y$; 


2070 RETURN 
Ce programme peut être amélioré par l'introduction d'un temps 
de jeu limité : 
120 reponse$="":flydead=0 


128 oldtime=TIME 


130 RHILE (reponseS$="" OR flydead=0) AND (xfly<b 
00 OR yfly<300) 


140 xnen=xfly: ynen=yfly 


150 reponseS$=LOHERS(INKEYS) 
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160 
16: y 


IF reponseS="a" THEN ynen=yfly+2: 
test=ynenx+8 


170 IF reponse$="z" THEN yner=yfly-2: 


16: y 


180 
48: y 


190 
16: y 


200 
210 
215 
220 


230 


test=yner-24 


IF reponse$="." THEN xnen=xfly+4: 
test=yner-8 


IF reponse$="," THEN xnen=xfly-4: 
test=yner-8 


IF xnen<>xfly OR ynen<>yfly THEN 
REND 


TAGOFF: CLS 


xtest=xnert 


xtest=xnent 


xtest=xnent 


xtest=xnen- 


GOSUB 2000 


IF flydead=0 THEN PRINT"temps: "TIME-oldtime 


END 


Une autre version de la commande TEST est la commande TESTR 
qui évalue la couleur PEN d’une position relative à la position en cours. 
Par exemple, TESTR (10, —-5) examine le point qui se trouve dix uni- 
tés à droite et cinq unités au-dessous du point en cours. Le programme 


suivant illust 


re cette instruction : 


10 MODE O 


20 GOSUB 1000 


30 GOSUB 2000 


4O END 


1000 
1010 
1020 
1030 
1040 
1050 


1060 


PAPER 12 

PEN O 

CLS 

sidex=3: sidey=7 

FOR y=sidey TO sidey+11 
LOCATE sidex, y 


PRINT CHR$(143) CHRS( 143); 
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1070 
1080 
1090 
1100 
1109 
1110 
1120 
1121 
1130 
1140 
1141 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1280 
1290 


1300 


LOCATE sidex+15, y 

PRINT CHR$(143) CHRS( 143); 

NEXT 

startx=7: starty=5 

FOR count=-1 TO 1 

LOCATE startx,starty+count 
PRINT STRINGS(8, CHRS(143)); 
LOCATE startx, starty-1 

LOCATE startx, starty+15+count 
PRINT STRINGS(8, CHRS(143)); 
NEXT 

TAG 

colour=0 

leftx=32: rightx=576 

boty=150: topy=330 

changey=6: changex=32 

PLOT leftxtchangex, topytchangey, colour 
FOR count=1 TO 4 
ychange=changey*count 
xchange=changex*count 

MOVE leftx+txchange, topytychange 
PRINT CHRS(143); 

GOSUB 1600 

MOVE rightx-xchange, topytychange 
PRINT CHRS(143); 


GOSUB 1600 
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1320 MOVE leftxtxchange, boty-ychange+g 
1330 PRINT CHRS(143); 

1340 GOSUB 1600 

1360 MOVE rightx-xchange, boty-ychange+g 
1370 PRINT CHRS(143); 

1380 GOSUB 1600 

1400 NEXT 

1410 SYMBOL 240, 0, 102, 36, 126, 126, 36,102,0 
1420 SYMBOL 241,0, 90, 126, 24, 24, 126, 90, O 
1430 sideS$=CHRS( 240) 

1440 upS$=CHRS$S(241) 

1450 car$=sides 

1460 carx=400: cary=338 

1470 PLOT carx+16,cary-4,3 

1480 MOVE carx,cary 

1490 PRINT cars; 

1500 RETURN 

1600 FOR count1=1 TO 4 

1610 MOVER -32,-16 

1620 PRINT CHRS(143); 

1630 NEXT 

1640 RETURN 

2000 carhit=0 

2010 changex=0: changey=0 

2020 RHILE carhit=0 


2030 reponseS=LORERS(INKEYS) 
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2040 IF reponseS$="a" THEN changex=0: changey=2: ca 
r$=up$: testx=-16: testy=2 


2050 IF reponseS="z" THEN changex=N: changey=-2.0 
ar$=up$: testx=-16: testy=-16 


2060 IF reponse$="." THEN changex=4: changey=0: ca 
r$=sideS: testx=0: testy=-8 


2070 IF reponseS="," THEN changex=-4: changey=0:ce 
ar$=sides: testx=-36: testy=-8 


2080 IF reponseS$=" “" THEN changex=0: changey=0 
2090 IF changex<>0 OR changey<>0 THEN GOSUB 3000 
2100 REND 

2110 RETURN 

3000 colourpen=TESTR(testx, testy) 

3010 IF colourpent>0 THEN carhit=1: SOUND 7,500 
3020 carx=carxtchangex: cary=carytchangey 

3030 MOVE carx,cary 


3040 PRINT car$; 


3050 RETURN 











EXERCICES 


1. Ajouter quelques obstacles sur la piste de course : des ballots de paille 
jaune ou les restes carbonisés d’une voiture. 


2. Créer un caractère multiple représentant une chenille verte qui se 
promène sur l'écran. 


3. Ajouter des fraises rouges affichées aléatoirement. Si elle mange une 
fraise, la chenille devient bleue puis meurt. 


4. Ajouter des contrôles à partir du clavier pour guider la chenille en la 
déplaçant verticalement pour qu'elle évite les fraises. La chenille est 
sauvée si elle atteint le parterre d’herbe verte placé à droite de l'écran. 
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COURBES ET DIAGRAMMES 


Dans les chapitres précédents, nous avons abordé l'aspect ludique 
du graphisme, mais il existe des applications plus sérieuses, même 
sur un micro-ordinateur. Ces dernières années, nous avons assisté 
à une prolifération de logiciels sophistiqués adaptés aux problèmes 
de gestion simples. Le but de la plupart de ces programmes est la 
présentation de l'information d'une façon plus compréhensible. Au 
lieu de donner des listes sans fin de chiffres et de résultats, le logiciel 
génère à partir des données manipulées des courbes, des histogram- 
mes et des diagrammes sectoriels ou bien la combinaison des trois. 
L'emploi de la couleur et du graphisme haute résolution facilite l’af- 
fichage des résultats et met en valeur certaines particularités. L'avan- 
tage supplémentaire présenté par l'ordinateur est qu’il peut rapide- 
ment refaire les calculs et afficher une nouvelle courbe ou un nouvel 
histogramme pour illustrer par exemple une chute des chiffres des 
ventes. 

Nous allons étudier dans ce chapitre un programme qui génère les 
trois formes les plus familières de la représentation graphique de don- 
nées : les courbes, les histogrammes et les diagrammes sectoriels. A 
ce stade, il est important de connaître certaines des règles qui doi- 
vent être utilisées pour la conception d'un programme. 

Tout d'abord, il est déconseillé d'écrire un programme constitué 
d'un seul bloc. Il est plus facile de développer, de ‘’débugger”’ et 
d'améliorer un programme s’il est constitué de modules, c’est-à-dire 
de petites sections ayant chacune une tâche spécifique à exécuter, 
comme par exemple le tracé des axes d’une courbe ou la coloration 
des classes d’un histogramme. 

Ensuite, un programme est très rigide s’il est associé à des valeurs 
spécifiques. Un programme qui trace les axes d'une courbe particu- 
lière fonctionne très bien mais contient des lignes telles que : 


100 MOVE 308,390 
110 DRAW 308,120 
120 DRAW 630,120 


Ces lignes sont difficiles à réutiliser et l'élaboration d’une nouvelle 
courbe peut nécessiter la réécriture du programme. Il est préférable 
d'utiliser si possible des variables. L'emploi de variables présente de 
nombreux avantages : les noms de variables sont plus significatifs que 
les séries de nombres dans les commandes MOVE et DRAW et le 
programme est plus facile à comprendre et à modifier, surtout s’il 
a été abandonné pendant quelque temps. 


s'CGre 


De plus, l’utilisation de variables signifie que l’on peut écrire un 
programme principal qui génère une courbe pour n'importe quel jeu 
de données ; les seules modifications nécessaires sont relatives aux 
valeurs des données et il n’est pas indispensable de modifier une par 
une les lignes de programme. 

L'écriture d’un programme de ce type demande plus de réflexion 
au départ et peut-être un développement un peu plus long, mais cela 
en vaut la peine. Cependant, cette approche évite l'écriture de plu- 
sieurs programmes qui exécutent des tâches identiques. 


GRAPHISME AVEC DES LIGNES ET DES POINTS 


La première question qui se pose lors du tracé de courbes est le 
choix du type de résolution. Sur l’Amstrad, nous pouvons choisir un 
mode quelconque parmi trois modes qui ont la même résolution ver- 
ticale et des résolutions horizontales différentes. En général, il est pré- 
férable de tracer une courbe comportant de nombreux points en 
mode 2 pour tirer un meilleur parti de la haute résolution. Malheu- 
reusement, en mode 2 nous sommes limités à deux couleurs. Si le 
nombre de points à tracer est inférieur à 300, le mode 1 est un com- 
promis raisonnable entre les exigences liées à la résolution et à la 
couleur : il offre 320 points adressables horizontalement avec un choix 
de quatre couleurs. 

L'Amstrad a été conçu de telle sorte qu’un changement de mode 
n’affecte pas les coordonnées graphiques. Par conséquent, le pro- 
gramme qui suit se déroule d'une manière identique dans n'importe 
lequel des trois modes. Par contre, la résolution varie. 

Nous allons commencer par développer un petit programme. Pour 
le moment, nous utiliserons la totalité de l'écran pour le tracé de la 
courbe et nous laisserons de côté l'écriture des labels. Ce programme 
est constitué d’une série de sous-programmes ; cela nous donne plus 
de souplesse et permet de tracer plusieurs jeux de données sur une 
seule courbe ou de dessiner des courbes multiples sans altération 
majeure du programme : 


10 MODE 1 
20 GOSUB SCO 


30 GOSUB 800 


2:67 


HO END 


9qg 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 


600 


REM trace des axes 
ypoints=399 
xpoints=639 

MOVE O0, ypoints 

DRAR 0,0, 

DRANR CE ntete 0 
minx=200 

maxx=4000 
diffx=maxx-minx 
miny=100 

maxy=1006 
diffy=maxy-miny 
pointx=diffx/xpoints 
pointy-=diffy/ypoints 
RETURN 


READ noofpoints 


805 DIM x(noofpointsi,y(noofpoints) 

810 FOR count=1 TO noofpoints 

815 READ xicount)i:xdispl=(x(count) -minx) 
/pointx 

320 READ y(count):ydisplz=(yicount) -miny) 
‘pointy 

825 PLOT xdispl,ÿdispl 

830 NEXT 

390 RETURN 


1000 DATE 5,200, 100, 1000, 200, 1500, 300, 25 
00, 600, 4000, 1000 
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La ligne 520 trace les axes de la courbe. L'origine est placée dans 
l'angle inférieur gauche de l'écran. Il est nécessaire de connaître les 
valeurs maximale et minimale des données pour que l'échelle de la 
courbe soit correcte (c’est-à-dire que tous les points se trouvent sur 
l'écran). Ces valeurs sont établies explicitement lignes 550 à 600, bien 
que l'ordinateur puisse les calculer à partir des données fournies. Une 
fois que l’Amstrad a trouvé la différence entre les valeurs maximale 
et minimale, il peut calculer (lignes 610 et 620) la valeur des unités 
sur les axes X et Y pour que l’ensemble des données apparaisse sur 
l'écran. L'origine représente le point de coordonnées minimal (le point 
de coordonnées maximal est placé dans l’angle supérieur droit). 

Enfin, le programme lit les coordonnées des données, les modifie 
en fonction de l'échelle, puis trace les points (lignes 800 à 830). Dans 
ce cas, les données sont déjà classées sur l’axe des X, des plus peti- 
tes aux plus grandes. L'ordre aléatoire des données sera traité 
ultérieurement. 

On peut faire tourner plusieurs fois le programme avec des données 
différentes pour max x et max y pour visualiser l'effet obtenu. Si on 
double max x, la courbe est ‘‘contractée”’ vers la gauche car le pro- 
gramme réserve de la place pour les valeurs de x plus importantes 
qui peuvent se trouver dans les données. Si on double max y, la 
courbe est contractée vers le bas. Les variables min x et min y ont 
des effets similaires si elles sont modifiées. Si les coordonnées de l'ori- 
gine (100,200) ne conviennent pas et que l’on préfère (0,0), il faut 
attribuer à min x et à min y la valeur 0. On remarque qu'une partie 
de l'écran est inutilisée parce qu'il n’y a pas de points dans cette zone. 
Il ne faut pas oublier que les données de la ligne 1000 font partie 
d'une certaine gamme de valeurs et que la modification de min x 
peut entraîner la perte de certains points. 

Le déroulement du programme révèle quelques problèmes ; la 
courbe et les points sont assez difficiles à distinguer. Certaines modi- 
fications peuvent améliorer cet état de fait. 


10 MODE 1 
20 GOSUB 500 
30 GOSUB 800 


4O END 
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499 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
690 
800 
805 
806 
807 
808 
809 
810 


815 


REM trace des axes 
ypoints=399 

xpoints=639 

MOVE O0, ypoints 

DRAR 0O,0,1 

DRAK xpoints,0 

minx=200 

maxx=4000 

diffx=maxx-minx 

miny=100 

maxy=1000 

diffy=maxy-miny 
pointx=diffx/xpoints 
pointy=diffy/ypoints 
RETURN 

READ noofpoints 

DIM x(noofpoints), y(noofpoints) 
READ pencolour, papercolour 
INK O, papercolour 

INK 1, pencolour 

PAPER O:PEN 1 

FOR count=1 TO noofpoints 


READ x(count):xdispl=(x(count) -minx) 


/pointx 


820 


READ y(count):ydispl=(y(count) -miny) 


/pointy 


325 


PLOT xdispl, ydispl 
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830 NEXT 
990 RETURN 


1000 DATA 5,0, 24, 200, 100, 1000, 200, 1500, 3 
00, 2500, 600, 4000, 1000 


Les couleurs utilisées pour tracer la courbe sont maintenant spéci- 
fiées dans l'instruction DATA. On pourrait même aller plus loin et 
spécifier un autre mode ; mais restons en mode 1. Les points peuvent 
être mis plus en valeur en dessinant sur chaque position une croix 
ou un carré, ce qui est facilement réalisé grâce au déplacement relatif : 

10 MODE 1 

20 GOSUB 500 

30 GOSUB 800 

4O END 

499 REM trace des axes 

500 ypoints=399 

510 xpoints-=639 

520 MOVE O, ypoints 

530 DRAK 0O,0,1 

540 DRAR xpoints, 0 

550 minx=200 

560 maxx=4000 

570 diffx=maxx-minx 

580 miny=100 

590 maxy=1000 

600 diffy=maxy-miny 

610 pointx=diffx/xpoints 


620 pointy=diffy/ypoints 
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690 
800 
805 
806 
807 
808 


RETURN 

READ noofpoints 

DIM x(noofpoints), y( noofpoints) 
READ pencolour, papercolour 

INK O, papercolour 


INK 1,pencolour 


809 PAPER O: PEN 1 

810 crossx=10 

811 crossy=10 

812 flag=1 

814 FOR count=1 TO noofpoints 

815 READ x(count):xdispl=(x(count) -minx) 
/pointx 

820 READ y(count):ydispl=(y(count) -miny) 
/pointy 

825 PLOT xdispl,ydispl 

830 MOVER -crossx,crossy 

840 DRARR 2*crossx, -2*crossy 

850 MOVER -2*crossx, 0 

800 DRAKR 2*%crossx, 2*crossy 

870 MOVER -crossx, -crossy 

880 NEXT 

990 RETURN 


1000 DATA 5,0, 24, 200, 100, 1000, 200, 1500, 3 
00, 2500, 600, 4000, 1000 


Le déplacement qui crée une branche de la croix est défini par deux 
constantes et non pas par les données, parce que la taille de ce genre 
de marqueur reste en général fixe au cours des différents déroule- 
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ments du programme. Il est possible d'agrandir ou de diminuer la 
taille de la croix, il suffit pour cela de modifier deux lignes. 

Le programme sera plus utile s’il comporte une option permettant 
de joindre deux points. Cela peut être indiqué par l'attribution d’une 


: 


variable ‘drapeau’ à l’une des deux valeurs qui indique si les points 
doivent être tracés séparément ou conjointement : 


10 MODE 1 

20 GOSUB 500 

30 GOSUB 800 

4O END 

499 REM trace des axes 
500 ypoints=399 

510 xpoints=639 

520 MOYE O0, ypoints 

530 DRAKH 0,0,1 

540 DRAR xpoints, O 

550 minx=200 

560 maxx=4000 

570 diffx=maxx-minx 

580 miny=100 

590 maxy=1000 

600 diffy=maxy-miny 

610 pointx=diffx/xpoints 
620 pointy=diffy/ypoints 
690 RETURN 

800 READ noofpoints 

805 DIM x(noofpoints), y(noofpoints) 


806 READ pencolour, papercolour 


2794 


807 INK O, papercolour 

808 INK 1, pencolour 

809 PAPER O:PEN 1 

810 crossx=10 

811 crossy=10 

812 flag=1 

814 FOR count=1 TO noofpoints 


815 READ x(count):xdispl=(x(count) -minx) 
/pointx 


816 x(count) =xdispl 


820 READ y(count):ydispl=(y(count) -miny) 
/pointy 


821 y(count)=ydispl 

825 PLOT xdispl,ydispl 

830 MOVER -crossx, crossy 

840 DRAHR 2*crossx, -2*crossy 
850 MOVER -2*crossx, O0 

860 DRAHR 2%crossx, 2*crossy 
870 MOVER -crossx, -crossy 


875 1F flag=1 AND count>1 THEN DRAH x(co 
unt-1),y(count-1) 


880 NEXT 
990 RETURN 


1000 DATA 5,0, 24, 200, 100, 1000, 200, 1500, 3 
00, 2500, 600, 4000, 1000 


L'inconvénient majeur du programme est l’absence de labels. Étant 
donné que la courbe commence à partir de l'angle inférieur gauche 
de l'écran, il n’y a pas de place pour le label et il semble que le pro- 
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gramme nécessite des modifications importantes. En fait, l’utilisation 
de variables et les capacités de l’Amstrad à modifier l’origine des 
courbes rendent le déplacement des axes très facile à réaliser : 


10 MODE 1 


20 GOSUB 500 


30 GOSUB 800 


4O END 


499 
500 
505 
510 
515 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
690 
800 
805 


806 


REM trace des axes 
0x=100:0y=50 

ORIGIN ox,oy 
ypoints=399-0oy 
xpoints=639-0x 

MOVE O, ypoints 

DRAK O0,0,1 

DRAH xpoints, 0 
minx=200 

maxx=4000 
diffx=maxx-minx 
miny=100 

maxy=1000 
diffy=maxy-miny 
pointx=diffx/xpoints 
pointy=diffy/ypoints 
RETURN 

READ noofpoints 

DIM x(noofpoints), y( noofpoints) 


READ pencolour, papercolour 
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807 INK O, 


papercolour 


808 INK 1,pencolour 


809 PAPER O: PEN 1 


810 crossx=10 


811 crossy=10 


812 flag=1 


814 FOR count=1 TO noofpoints 


815 READ x(count): xdispl=(x(count) -minx) 


/pointx 


816 x(count)=xdispl 


820 READ ylcount):ydispl=(y(count) -miny) 


/pointy 


821 y(count)=ydispl 


825 PLOT xdispl,ydispl 


830 MOVER 
840 DRARR 
850 MOVER 
860 DRAHR 


870 MOVER 


—crossx,crossy 
2*crossx, -24crossy 
-2Xcrossx, 0 
2,crossx, 2*crossy 


-crossx, -crossy 


875 IF flag=1 AND count>1 THEN DRAK x(co 
unt-1),y(count-1) 


880 NEXT 


990 RETURN 


1000 DATA 5, 0, 24, 200, 100, 1000, 200, 1500, 3 
00, 2500, 600, 4000, 1000 


La ligne 500 doit être modifiée, puisque l’on n'utilise plus la totalité 
de l'écran pour la courbe. Le reste du programme n’a pas à être modi- 
fié : toutes les lignes dessinées et tous les points tracés sont relatifs 
à la nouvelle origine, comme on le voit lors du déroulement du pro- 
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gramme. Si on attribue à ox et oy de nouvelles valeurs, on s'aperçoit 
que la forme de la courbe reste la même, quelle que soit l’origine 
et indépendamment de sa taille. 

Nous avons maintenant assez de place pour marquer les interval- 
les sur les axes et leur attribuer des labels. Cela ne peut pas être fait 
de façon complètement automatique. L'attribution de labels sur l’axe 
des Ÿ ne doit pas poser de problème, car nous avons choisi une ori- 
gine qui laisse un espace suffisant. 

Le nombre maximal d'intervalles est limité par deux facteurs : la 
résolution du mode et la largeur des caractères à afficher au-dessous 
de chaque graduation. L'ordinateur peut déterminer si l'intervalle 
choisi est trop faible et entraîne le chevauchement des caractères lors 
de l’écriture des labels ; mais il ne peut pas réellement sélectionner 
l'intervalle qui convient. L'utilisateur choisit généralement les inter- 
valles suivants : .5, 10, 20, 25, 100 etc. L'Amstrad rejette les valeurs 
impossibles. 

L'attribution de labels se fait en deux temps : graduation des axes 
et affichage des caractères. La première étape n’est pas exécutée si 
les caractères à afficher se chevauchent. Il faut indiquer à l’ordina- 
teur la taille maximale des chaînes à afficher pour qu’il puisse calcu- 
ler si elles sont affichables : 


SO4 INK O,24: INK 1,24 

630 xrange=5 

o40 yrange=10 

050 xnidth=INT( xpoints/xrange) 

660 xheight=INT(ypoints/yrange) 

670 maxxstring=4 

675 charxidth=16 

676 charheight=16 

£0 graphxstring=charnidth*maxxstring 


690 IF xnidth<graphxstring OR xnidth<cha 
rridth THEN RETURN 


692 maxystring=} 
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694 graph;string=charridthmaxystring 


696 IF ox(graphystring OR yheight<charhe 
sght THEN RETUPN 


00 xtick=6 

702 ÿtick=8 

704 xvalue=dirffx/xrange 
706 TAG 

702 FOR count=0 TO xrange 
710 MOVE 0,0 

712 MOVER xridth*count, O 
714 DRARR O,-xtick 

728 NEXT 

730 yvalue=diffy/yrange 
732 FOR count=0 TO yrange 
734 MOVE 0,0 

736 MOVER O, yheight*count 
738 DRARR -ytick,0 

754 NEXT 


790 RETURN 


Comme pour les points mis en valeur par des croix, il est possible 
d'interférer sur la qualité du graphisme des graduations. On peut modi- 
fier leur taille en corrigeant les lignes appropriées. 

Au lieu de recalculer les positions des graduations lors de l'affichage 
des valeurs x et y, on peut insérer le sous-programme d'affichage au 
moment du dessin des graduations : 


708 FOR count=0 TO xrange 
710 MOVE O,0 


712 MOVER xnidth*count, O 
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714 DRAHR O,-xtick 

716 MOVER -charwidth/2, -xtick 

718 numberS$=STRS(minxtcount*xvalue) 
720 number$=MIDS(numbers$, 2, maxxstring) 
722 length=LEN( numbersS) 


724 IF MIDS(number$, length) ="." THEN num 
ber$S=MIDS$S( numbers$, 1, length-1) 


726 PRINT numbers$; 

728 NEXT 

730 yvalue=diffy/yrange 

732 FOR count=0 TO yrange 

734 MOVE 0,0 

736 MOVER O0, yheight*count 

738 DRAKR -ytick,0O 

740 MOVER -graphystring, charheight/2 
742 number$=STR$(minytcount*yvalue) 
744 numberS$S=MIDS(numbersS, 2, maxystring) 
746 length=LEN( number$) 


748 IF MIDS(number$, length) ="." THEN num 
ber$=MIDS( numbers$S, 1, length-1) 


750 IF LEN(number$) <maxystring THEN numb 
er$=STRINGS(maxystring-LEN( number$S)," ‘) 
+numbersS 

752 PRINT numbers$; 

754 NEXT 


790 RETURN 


On attribue également des labels aux axes et on donne un titre à 
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la courbe. Il faut vérifier à nouveau que l’origine a été choisie de telle 
sorte qu'il y ait de la place pour l'affichage des caractères : 


756 
758 
760 
762 
764 
766 
768 
770 
772 
774 
776 


Xlabe1$="population des souris" 
ylabelS$="fromage consome" 
xlablength=LEN( xlabel1$) *charridth 
xlabstart=(xpoints-xlablength) /2 
MOVE xlabstart, -2*charheight 

PRINT xlabelS; 
ylablength=LEN( ylabel1$) *charheight 
ylabstart=(ypoints+tylablength)/2 
FOR count=1 TO LEN(ylabel$) 
char$=MIDS(ylabel$, count, 1) 


MOVE: -charridth*(maxystring+2),ylabs 


tart-charheight*(count-1) 


778 
780 


PRINT chars; 


NEXT 


790 RETURN 


Le programme est incomplet, puisqu'il ne travaillera que sur des don- 
nées préalablement ordonnées. Cela n’est valable que pour certai- 
nes opérations, comme par exemple le calcul des précipitations sur 
une certaine période ou des fluctuations d’un compte bancaire sur 
plusieurs mois (on a alors essentiellement besoin d'un axe négatif). 
Si les valeurs doivent être triées par ordre croissant, il ne suffit pas 
de pouvoir les lire, de déterminer leur échelle et de les tracer. Elles 
doivent d’abord être stockées et comparées, puis éventuellement réor- 
ganisées. Toutes les données sont lues dans un tableau puis triées : 


814 FOR count=1 TO noofpoints 


815 READ x(count):xdispl=(x(count) -minx) 
/pointx 


816 x(count) =xdispl 
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820 READ y(count):ydispl=(y(count) -miny) 
/pointy 


821 y(count)=yaispl 

825 NEXT 

830 FOR count=2 TO noofpoints 
840 FOR value=count TO 2 STEP -1 


850 IF x(value)<x(value-1) THEN GOSUB 15 
00 ELSE value=2 


860 NEXT 
870 NEXT 
1500 tempx=x( value) : tempy=y( value) 


1510 x( value) =x( value-1) : y( value) =y( valu 
e-1) 


1520 x(value-1) =tempx: y( value-1) =tempy 
1530 RETURN 


Quelques autres lignes doivent être modifiées, puisque les coordon- 
nées ne sont plus directement lues et tracées à partir des données. 

Le tri effectué est appelé tri d'insertion. Les deux premières coor- 
données x sont ordonnées, puis la troisième est insérée en bonne 
place. Le processus est ensuite répété pour l'insertion de la quatrième 
coordonnée et ainsi de suite jusqu’à ce que toutes les coordonnées 
soient placées par ordre croissant. 

Le tri de variables numériques et de chaînes est très fréquent en 
informatique. Si plusieurs centaines de nombres sont concernées, le 
processus ci-dessus est un peu long et on peut en utiliser un autre ; 
par exemple, le tri par bulle est particulièrement adapté si les don- 
nées sont déjà en partie classées. Si la quantité de données est trop 
importante, il faut avoir recours à un sous-programme de tri en code 
machine. Lorsque les données sont triées en fonction de l’abscisse, 
l'ordinateur peut calculer seul les valeurs de min x, min y, max x et 
max y : 


880 FOR count=1 TO noofpoints 


890 PLOT x(count),y(count) 
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900 MOVER -crossx,crossy 
910 DRAHR 2*crossx, -2*crossy 
920 MOVER -2%crossx, 0 

930 DRARR 2*crossx, 2*crossy 
940 MOVER -crossx, -crossy 


960 IF flag=1 AND count>1 THEN DRAK x(co 
unt-1),y(count-1) 


970 NEXT 
990 RETURN 


1000 DATA 5, 0, 24, 1000, 200, 4000, 1000, 200, 
100, 2500, 600, 1500, 300 


Le programme a encore quelques faiblesses, que l’on peut essayer 
de rectifier dans les exercices suivants ; mais il est adapté à la plupart 
des situations. 



















EXERCICES 


1. Quelles modifications sont nécessaires pour que le programme tourne 
en mode 0 où en mode 2 ? Quelles sont les valeurs qui varient en 
fonction du mode et qui pourraient être remplacées par des variables ? 


2. Pour l'instant, l’axe des y est toujours dessiné à gauche de la courbe 
et l’axe des x à sa base. Modifier le programme pour que les axes x et y 
passent par le point (0,0) quand les données incluent des coordonnées 
positives et négatives. 


3. Modifier le programme pour que des jeux de données successifs 
puissent être tracés sur la même courbe dans des couleurs différentes. 
Ne pas répéter des sections du programme pour dessiner d’autres 
lignes : identifier les parties du programme nécessaires et les appeler 
sous la forme de sous-programmes. 


4. Modifier le programme pour que deux courbes d’échelles différentes 
soient affichées dans les moitiés supérieure et inférieure de l’écran (il 
faut modifier les ordonnées et changer deux fois l’origine). 


5. Modifier le programme pour que les données de la courbe puissent être 
lues à partir d’un fichier ou sauvegardées. 
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HISTOGRAMME 


Le tracé d’un histogramme est plus facile à réaliser à partir du pro- 
gramme de dessin de courbe, car la plupart des problèmes ont été 
résolus. Le processus est simplifié puisque nous ne traitons que les 
coordonnées y ; dès que nous connaissons le nombre de données, 
il est facile de calculer la largeur de chaque classe. Le programme 
précédent a mis en évidence l'avantage de l’utilisation généralisée 
de variables et de sous-programmes : 


10 MODE 1 

20 GOSUB 500 

30 GOSUB 800 

40 GOTO 40 

499 REM trace des axes 
500 0ox=100: 0y=50 
505 ORIGIN ox,oy 
510 ypoints=399-0y 
515 xpoints=639-0x 
520 MOVE O0, ypoints 
530 DRAK 0,0,1 

540 DRAN xpoints,0O 
550 minx=200 

560 maxx=4000 

570 diffx=maxx-minx 
580 miny=100 

590 maxy=1000 

600 diffy=maxy-miny 


620 pointy-=-diffy/ypoints 
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630 READ noofbars: xrange=noofbars 

640 yrange=9 

650 xnidth=INT(xpoints/xrange) 

660 yheight=INT(ypoints/yrange) 

675 charridth=16 

676 charheight=16 

692 maxystring=4 

694 graphystring=charnidth*maxystring 


696 IF ox<graphystring OR yheight<charhe 
ight THEN RETURN 


700 xtick=6 

702 ytick=8 

706 TAG 

710 MOVE 0,0 

712 MOVER xnidth*count, O 

714 DRARR O,-xtick 

716 MOVER -charnidth/2,-xtick 

718 number$=STR$(minxtcount*xvalue) 
720 number$=MIDS$( number$, 2, maxxstring). 
722 length=LEN( number$) 

730 yvalue=diffy/yrange 

732 FOR count=0 TO yrange 

734 MOVE O,0 

736 MOVER 0, yheight*count 

738 DRARR -ytick,0O 


740 MOVER -graphystring, charheight/2 
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742 
744 
746 
748 


number$S=STRS(minytcount*yvalue) 
number$=MID$S(numbersS, 2, maxystring) 
length=LEN( numbersS) 


IF MIDS(number$, length)="." THEN num 


ber$=MIDS( number$, 1, length-1) 


750 IF LEN(number$S) <maxystring THEN numb 
er$=STRINGS(maxystring-LEN(number$S)," "“) 
+numbers$ 

752 PRINT numbers$; 

754 NEXT 

756 xlabel$="population des souris" 


758 
760 
762 
764 
766 
768 
770 
772 
774 
776 


ylabel$="fromage consome" 
xlablength=LEN( xlabel$) *charnidth 
xlabstart=(xpoints-xlablength) /2 
MOVE xlabstart, -2*charheight 

PRINT xlabelS$; 
ylablength=LEN(ylabel1$) *charheight 
ylabstart=(ypointstylablength)/2 
FOR count=1 TO LEN(ylabel$) 
char$=MIDS(ylabelS, count, 1) 


MOVE -charnidth*(maxystring+2),ylabs 


tart-charheight*(count-1) 


778 
780 
790 
800 
806 


807 


PRINT chars; 

NEXT 

RETURN 

DIM y(noofbars) 

READ pencolour, papercolour 


INK O, papercolour 
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808 INK 1, pencolour 

809 PAPER O:PEN 1 

814 FOR count=1 TO noofbars 
815 READ y 

820 y(count)=(y-miny)/pointy 
825 NEXT 

830 barnidth=xKidth-4 

840 FOR count=1 TO noofbars 
850 MOVE 0,0 

860 DRAHR O, y(count),1 

870 DRAHR barnidth, 0 

880 DRAHR O,-y(count) 

890 ox=oxt+xnidth 

900 ORIGIN ox,oy 

910 NEXT 

990 RETURN 


1000 DATA 10, 0, 24, 350, 190, 760, 440, 990, 12 
4, 846,545, 666, 222 


Le sous-programme de la ligne 800 trace chaque classe comme une 
série de déplacements relatifs en fonction de l'origine. Si on déplace 
l’origine d’une distance déterminée entre le dessin de chaque classe, 
on peut utiliser une boucle pour tracer une succession de classes. 

L'affichage final est plus significatif si les classes ont différentes 
couleurs. Malheureusement, l’Amstrad ne comporte pas de comman- 
des qui permettent de colorer une zone graphique et les classes 
doivent être remplies par de simples lignes qu’il faut tracer le plus 
rapidement possible. Dans le dernier chapitre, nous avons identifié 
plusieurs méthodes pour accélérer le déroulement d’un programme 
et nous pouvons maintenant utiliser cette possibilité : 
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ga 
835 


840 


845 
r=3 


850 
/8 


860 
870 
880 
890 
900 
910 


990 


Les lignes sont dessinées verticalement et non horizontalement, parce 
que la plupart des classes sont plus hautes que larges ; cela signifie 
qu’il faut moins de lignes verticales pour les remplir. La seule méthode 
de coloration rapide est réalisée avec des sous-programmes en langage 


machine. 


Il est également possible de tracer les histogrammes en donnant 


baraidth=xn#1d4th-4 


colour=2 
FOR count=1 TO noofbars 


IF colour=3 THEN colour=2 ELSE colou 


FOR bar=0 TO barnidth STEP char#ridth 


MOVE Otbar, O 

DRAHR O,y(count),colour 
NEXT 

ox=oxtxnridth 

ORIGIN ox,oy 

NEXT 


RETURN 


de la perspective aux différentes classes : 


830 
834 
835 
840 


845 
r=3 


846 


barnidth=xnwidth-#4 
barside=bar#nidth/4: bartop=barside 
colour=2 

FOR count=1 TO noofbars 


IF colour=3 THEN colour=2 ELSE colou 


bartopcount=0 
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850 FOR bar=0 TO barxidth STEP charnidth 
/8 


860 PLOT O+bar, 0,1 

870 DRAHR O, y( count) tbartopcount, colour 
872 PLOTR O,0,1 

875 bartopcount=bartopcounttcharnidth/8: 
IF bartopcount>bartop THEN bartopcount=b 
artop 

830 NEXT 

882 y=y( count): MOVE 0,0 

883 DRAHR O,y,1 

884 DRAHR barnidth,0O 

885 DRAHR O, -y 

886 MOVER O, y 

887 DRANR barside, bartop 

883 DRAHR O0, -y-bartop 

890 ox=ox+xnidth 

900 ORIGIN ox,0oy 

910 NEXT 


990 RETURN 


EXERCICES 


1. Effectuer les modifications nécessaires pour que le programme tourne 
correctement en mode 0 et en mode 2.. 


. Modifier le programme pour qu'il trace un histogramme horizontal 
et non vertical. 


. Modifier l’histogramme en lui donnant ‘“‘trois dimensions’ pour que 
chaque jeu de données soit dessiné devant le précédent. 
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DIAGRAMMES SECTORIELS 


Un diagramme sectoriel a peu de choses en commun avec les 
courbes et les histogrammes et nous devons développer un pro- 
gramme différent, qui sera composé de certains des sous-programmes 
précédents. La résolution est importante pour le diagramme secto- 
riel qui nécessite le tracé précis d’un cercle, mais l'emploi de la cou- 
leur donne à ce diagramme plus d'impact. Nous devons donc trouver 
un compromis et utiliser le mode 1. 


Le programme qui génère le premier diagramme sectoriel dessine 
simplement un cercle et le divise en secteurs de tailles appropriées 
et de couleurs différentes : 


10 MODE 1 

20 GOSUB 1000 

30 GOSUB 2000 

4O GOSUB 3000 

SQ END 

999 REM 

1000 READ centrex,centrey 
1010 READ radius 

1020 RE&D numberofvalues 


1030 DIM value( numberof values), angle( num 
berofvalues) 


1040 totalofvalues=0 
1050 FOR count=1 TO numberofvalues 
1060 PEAD valuel count) 


1070 totalofvalues=totalofvaluestvalue(c 
ount) 


1080 NEXT 
1090 RETURN 


1100 DATA 200, 200,120, 4,1,2,3,4 
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1999 REM calcul de l'angle pour chaque s 
ecteur 


2000 FOR count=1 TO numberofvalues 


2010 angle( count) =2*PI*valuel count) /tota 
lofvalues 


2020 NEXT 

2030 RETURN 

3000 startangle=0 

3020 stepsize=PIi/60 

3030 colour=1 

3040 noofcolours=3 

3050 FOR count=1 TO numberofvalues 
3060 endangle=startangle+tangle( count) 


3069 REM on change de couleur pour chaqu 
e secteur 


3070 colour=1+(colour+1) MOD noofcolours 
3080 IF count=numberofvalues AND numbero 
Ffvalues MOD noofcolours=1 THEN colour=1+ 
(colour+1) MOD noofcolours 

3090 MOVE centrex, centrey: DRAK centrextr 
adius*SIN(startangle), centrey+tradius*COS 
(startangle), colour 


3099 REM dessin secteur 


3100 FOR angle=startangle TO endangle ST 
EP stepsize 


3110 DRAN centrextradius*SIN(angle), cent 
reytradius*COS( angle) 


3120 NEXT 
3130 startangle=endangle 
3140 NEXT 


3150 RETURN 
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Le sous-programme de la ligne 1000 lit les valeurs à partir de l'ins- 
truction DATA et calcule leur somme. Cela est nécessaire pour déter- 
miner l’angle du secteur correspondant dans le sous-programme de 
la ligne 2000. Chaque secteur est dessiné dans une couleur différente 
dans le sous-programme de la ligne 3000. 

Le déroulement du programme révèle que, pour un diagramme 
sectoriel avec un rayon important, le tracé est assez lent. On peut 
accélérer le processus en prenant comme nouvelle origine le centre 
du cercle ; cela rend l'exécution des calculs plus rapide : 


3000 ORIGIN centrex,centrey 
3099 REM dessin secteur 


3100 FOR angle=startangle TO endangle ST 
EP stepsize 


3110 DRAR radius*SIN(angle:, radiusCOS(a 
nele) 


3120 NEXT 


3190 MOVE 0,0: DRAN radius*SIN( startangle 
}, radius*COS(5tartangle),colour 


La nécessité de calculer le sinus et le cosinus des angles ralentit 
le processus, mais elle est impérative. Cependant, pour démontrer 
qu'il existe plusieurs façons de procéder, nous allons étudier un pro- 
gramme plus rapide. Il ne calcule qu’un seul sinus et un seul cosinus 


puis utilise ces valeurs pour déterminer le point de la circonférence 
suivant : 


2000 radval=radius4 
2005 FOR count=1 TO numberof values 


2010 angle( count) =radval*value( count) /to 
talofvalues 


2020 NEXT 
2030 RETURN 
3000 ORIGIN centrex,centrey 


3009 REM on utlise des entiers dans les 
boucles afin d'etre plus rapide 
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3010 DEFINT c 
3030 colour=1 


3035 thesin=SIN(2*PI/radval):thecos=CoS( 
2*PI/radval) 


3037 x1=radius: y1=0 


3039 REM mode O on change la couleur des 
points 


3040 noofcolours=3 
3050 FOR count=1 TO numberof values 


3069 REM changement de couleur par secte 
ur 


3070 colour=1+(colour+1) MOD noofcolours 


3079 REM 1er et dernier secteur de coule 
ur differente 


3080 IF count=numberof values AND numbero 
fvalues MOD noofcolours=1 THEN colour=1+ 
(colour+1) MOD noofcolours 

3099 REM dessin des secteurs 

3100 FOR count1=1 TO angle( count) 

3110 x=x1*thecos-y1*thesin 

3112 y=x1Xthesinty1*thecos 

3114 PLOT x,y,colour 

3116 x1=x: y1=y 

3120 NEXT 

3129 REM on centre ce secteur 

3130 MOVE 0,0: DRAK x, y 

3140 NEXT 


3150 RETURN 


_ 92 - 


Le diagramme sectoriel est plus significatif si chaque secteur est 
coloré différemment, et nous allons modifier le premier programme 
en conséquence. La méthode la plus simple consiste à dessiner des 
lignes successives à partir du centre jusqu’à chaque point de la 
circonférence : 


1 REM du programme precedent on change 


2 REM les lignes : 
3020 stepsize=PI1/500 
3109 REM on part du centre 


3110 MOVE O, 0: DRAN radius*SIN(angle), rad 
ius*COS( angle) 


Ce programme est très lent mais malheureusement, si les pas d'ité- 
rations sont importants, certains pixels ne sont pas pris en compte 
et gardent la couleur du fond. On peut accélérer le déroulement en 
colorant alternativement des secteurs (les autres conserveront la cou- 
leur du fond). Cette approche permet de gagner du temps si les valeurs 
sont lues dans un tableau puis triées par ordre croissant. En réorga- 
nisant l’ordre dans lequel les secteurs sont tracés, il est possible de 
ne colorer que les petits secteurs. Cependant, cela est contraire au 
choix du mode 1 ; par ailleurs, l'attribution de labels aux secteurs 
est primordiale pour la compréhension du diagramme sectoriel. 

On peut accélérer le déroulement du programme en calculant les 
coordonnées de la circonférence et en les stockant dans un tableau 
puis en utilisant les valeurs du tableau lors du dessin du diagramme. 
Ce n’est pas une bonne méthode si la taille mémoire est limitée, car 
les tableaux employés sont très importants : 


10 MODE 1 

20 GOSUB 1000 
30 GOSUB 2000 
40 GOSUB 3000 
50 END 


999 REM on utilise des entiers 
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1000 
1005 
1010 
1020 


1030 


DEFINT a,c,n,r,v 
READ centrex, centrey 
READ radius 

READ numberof values 


DIM value( numberof values), angle( num 


berof values) 


1040 
1050 
1060 
1070 


ount) 


1080 
1090 
1100 
1998 
2000 
2001 
2005 


2010 


totalofvalues=0 
FOR count=1 TO numberofvalues 
READ valuel( count) 


totalofvalues=totalofvaluestvalue(c 


NEXT 

RETURN 

DATA 200, 200, 120,4,1,2,3,4 
REM 

radval=radius*10 

totangle=0 

FOR count=1 TO numberofvalues 


angle( count) =radval*value( count) /to 


talofvalues 


2015 
2020 
2030 
3000 
3010 
3020 
3030 


totangle=totangletangle( count) 
NEXT 

RETURN 

ORIGIN centrex,centrey 

DEFINT c 

count( angle) =0 


colour=1 
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3033 REM pour calculer un sinus ou un co 
sinus plus vite 


3035 thesin=SIN(2*PI/radval):thecos=COS( 
2*PI/radval) 


3036 x1=radius: y1=0 


3037 REM calcul des coordonnees des poin 
ts formant la circonference 


3038 GOSUB 4000 


3039 REM mode O change la couleur des po 
ints (15) 


3040 noofcolours=3 
3050 FOR count=1 TO numberofvalues 


3069 REM on change la couleur des secteu 
rs 


3070 colour=1+(colour+1) MOD noofcolours 
3079 REM 

3080 IF count=numberofvalues AND numbero 
fvalues MOD noofcolours=1 THEN colour=1+ 
(colour+1) MOD noofcolours 


3099 REM dessin des secteurs 


3100 FOR count1=countangle TO countangle 
tangle( count) 


3114 MOVE 0,0: DRAK x(count1),y(count1),c 
olour 


3120 NEXT 


3124 REM mise a jour de la position suiv 
ante 


3125 countangle=countangle+tangle( count) 
3140 NEXT 

3150 RETURN 

3997 REM 
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4000 DIM x(totangle), y( totangle) 
4010 FOR count=1 TO totangle 
4020 x=x1*thecos-y1*thesin 

4030 y=x1*thesinty1Âthecos 

404O x( count) =x 

4050 y(count)=y 

4060 x1=x: y1=y 

4070 NEXT 

4080 RETURN 


Les programmes ci-dessus montrent qu’il est difficile de s'assurer 
qu'une zone est totalement colorée. La certitude d’une coloration 
complète ne peut être obtenue qu’en traçant les points un par un, 
comme nous le verrons dans le prochain chapitre. 










EXERCICES 


1. Modifier le programme de tracé d’un diagramme sectoriel pour qu’un 
label soit attribué à chaque secteur. 


2. Modifier le programme pour que plusieurs diagrammes de même rayon 
soient dessinés sur l'écran (c’est l’occasion d'employer des tableaux 
qui évitent de recalculer les points de la circonférence pour chaque 
cercle). 


3. Écrire un programme qui superpose les uns au-dessus des autres des 
petits diagrammes sectoriels avec des secteurs colorés. 
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MODÈLES ET IMAGES 


Nous avons vu dans le Chapitre 1 qu'il est facile de générer des 
modèles à l’aide de la combinaison des commandes MOVE et DRAW : 


10 MODE 1 

20 x=320: y=200 

30 maximum=200 

HO stepsize=5 

50 FOR count=0 TO maximum STEP stepsize 
60 MOVE x-count, y 

70 DRAH x,y+(maximum-count) 

80 DRAK xtcount, y 

A0 DRAR x, y-(maximum-count) 

100 DRAK x-count, y 


110 NEXT 


Les ‘’mailles de courbes’”” sont courantes en mathématiques ; de 
nombreux effets peuvent être générés en reliant simplement une série 
de points par des lignes droites. Le programme suivant utilise ce prin- 
cipe en traçant d’abord un polygone composé d'un nombre de côtés 
donné, puis en reliant les sommets entre eux : 


10 MODE 1 
20 radius=150 
30 x=320: y=200 


4O INPUT'combien de cotes a la figure'";s 
ides 


50 CLS 

60 stepsize=2*PI/sides 
70 DIM x(sides), y(sides) 
80 count=0 


90 OPIGIN x,7y 
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100 MOVE O,radius 
110 FOR angle=0 TO 2XPI STEP stepsize 


120 DEAH radius*SIN(angle),radius*COS(an 
gle) 


130 x(count) =radius*SIN(angle):y(count)= 
radiusCOS( angle) 


140 count=count+1 

150 NEXT 

155 DRAKX O,radius 

160 FOR counti=1 TO sides-1 

170 FOR count2=count1+1 TO sides 
180 MOVE x(count1),y(count1) 

190 DRAH x(count2}i, y( count2) 

200 NEXT 


210 NEXT 


Le résultat est beaucoup plus impressionnant si on ajoute de la 
couleur : 


155 colour=1: DRAN 0,radius,colour 
160 FOR count1=1 TO sides-1 

170 FOR count2=count1+1 TO sides 
173 REM differentes couleurs 

175 colour=:1+(colour+1) MOD 3 

189 MOYE x(count1),v{counti) 

190 DRAR xicount2),y(count2)i,colsur 
200 HEXT 


210 HEXT 
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Figure 4.1 : Exemple de mailles de courbes. 


Dans ce chapitre, nous allons voir que de nombreux modèles peu- 
vent être générés. La plupart d'entre eux sont basés sur l'utilisation 
des fonctions sinus et cosinus. Il ne faut pas se laisser impressionner, 
ie$ programmes suivants sont complets, même s’il permettent à l’uti- 
lisateur de tester différents effets en substituant ses propres valeurs 
à celles des variables. 


MODÈLES MOIRÉS 


L'utilisation de la commande ORIGIN et des déplacements relatifs 
lacilite le dessin de modèles symétriques. Ce programme utilise 
comme origine le centre de la zone de dessin. On crée le modèle 
en reliant des points du nouvel axe des x à des points placés en haut 
et en bas de l'écran. Chaque coordonnée x est multipliée par un 
facteur pour que les lignes convergent ou divergent : 


10 MODE 71 
19 REM on utilise des entiers pour plus 


de rapidite 
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20 DEFINT c,f,x,y 

30 xorigin=320: vorigin=200 
yQ Factor1=3: Factor2=1 

50 factord=Factori-factorà 
6G ORIGIN xorigin,yorigin 


69 REM la boucle trace 4 lignes symetriq 
ues 


70 FOR count=0 TO 200 

80 MOVE 0,0: MOVER countfactor1,0 

90 DPARR -countfactord, 200 

100 MOVER -count“factor2*2,0 

110 DRAHR -countfactord, -200 

120 DRAKR countfactord, -200 

130 MOVER countfactor22,0 

140 DRARR count*factord, 200 

150 NEXT 
On remarque la commande DEFINT de la ligne 20 qui permet d’ac- 
célérer le déroulement du programme. Il ne sera pas toujours possi- 
ble de définir toutes les variables comme des entiers car de nombreux 
modèles de cette section sont générés à l’aide de fonctions trigono- 
métriques qui donnent des valeurs décimales. 

Les facteurs de la ligne 40 peuvent avoir n'importe quelle valeur 
inférieure à 15 (sinon le modèle est difficile à discerner). Les modèles 
moirés qui apparaissent sur l'écran résultent du fait que l'Amstrad 
laisse certains pixels dans la couleur du fond et du chevauchement 
partiel des lignes. Il faut essayer différents facteurs et faire tourner 
le programme dans d’autres modes. On peut obtenir un très joli ‘tapis 
tissé’” en ajoutant ces lignes : 


35 colour1=1: colour2=2 


70 FOR count=0 TO 200 
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80 MOVE 0,0: MOVER countAfactor1,0 

90 DRAHR -countAfactord, 200, colouri 
100 MOVER -count*factor2*2,0 

110 DRAHR -count*factord, -200, colour2 
120 DRANR countfactord, -200, colour1 
130 MOVER count factor2%2,0 

140 DRAHR count*factord, 200, colour2 


150 colour1=1+(colour1+1) MOD 4: colour2=1 
+(colour2+1) MOD 4 


160 NEXT 


La ligne 150 génère une couleur de premier plan compatible avec 
le mode 1. La commande MOD donne le reste de la division : par 
exemple, 5 MOD 4 est égal à 1. On ajoute 1 au résultat pour éviter 
d'obtenir la couleur du fond ; sinon 4 MOD 4, qui a pour valeur 0, 
tracerait un modèle composé de lignes confondues avec le fond. Dans 
cet exemple, les lignes 35 et 150 se combinent pour afficher un tapis 
orange. La couleur PEN utilisée avec les commandes DRAWR est tou- 
jours 1 (jaune) ou 3 (rouge). La proximité des lignes (qui dépend des 
facteurs de la ligne 40) détermine la couleur du tapis, soit orange, 
soit composé de bandes rouges et jaunes. 

En attribuant les valeurs 2 et 3 aux variables couleur 1 et 2 (en modi- 
fiant le modulo de la division, ligne 150), on obtient une variété d’ef- 
fets : des modèles dont les côtés diagonalement opposés sont de dif- 
férentes couleurs ou des modèles composés de certaines couleurs. 
Le déroulement du programme dans d’autres modes donne des résul- 
tats surprenants, sauf si on ajuste la gamme des couleurs à l’aide des 
instructions de la ligne 35. 


FIGURES DE LISSAJOUS 


Les figures de Lissajous sont créées à partir de la méthode utilisée 
pour le tracé d’un cercle. On garde un rayon constant et on prend 
le sinus et le cosinus du même angle pour déterminer un point de 
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la circonférence. On obtient ensuite de nombreux modèles en faisant 
varier l’angle choisi : 


10 
20 
30 
40 
50 


60 
} 


70 


MODE 7 

xorigin=320: yorigin=200 
ORIGIN xorigin,yorigin 

MOVER 100,0 

FOR angle=0 TO 32 STEP PI/30 


DRAH 1004C0S( angle) , 1004SIN( angle. 8 


NEXT 


Une autre méthode consiste à calculer les points sur deux courbes 
et à les relier avec des lignes droites : 


Voici 


10 


70 
un 


10 
20 
30 
40 


50 


MODE 7 

xorigin=3:0: yorigin=£?00 

OPIGIH xorigin, origin 

MOVER 100,0 

FOR angle=0 TO 6.4 STEP P1/35 
MOVE 2ONASIN angle), 100 CCS angle) 
DRAN 1004CGS( angle:, 20O0*SIVW( angle; 
HEXT 


autre exemple : 


MODE 71 

xorigin=320: yorigin=200 
ORIGIN xorigin,yorigin 
MOVER 100,0 


FOR angle=0 TO 6.4 STEP PI/35 
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55 MOVE 300*SIN( angle), 50XCOS( angle) 
60 DRANH 10XCOS( angle/5), 200XSIN( anglex2) 
70 NEXT 


Nous allons ajouter de la couleur : 


10 MODE 1 

20 xorigin=320: yorigin=200 

30 ORIGIN xorigin,yorigin 

40 colour=1 

50 FOR angle=0 TO 20 STEP PI/30 

53 IF angle>10 THEN colour=3 

55 MOVE 200%SIN( angle), 200*COS( angle) 


60 DRAH 100%C0S( angle*3), 2004SIN( angle/3 
}),colour 


70 NEXT 


Comme pour les programmes précédents, il faut essayer de les faire 
tourner dans un autre mode. On peut croire que les fonctions sinus 
et cosinus qui génèrent les modèles fournissent des résultats impré- 
visibles ; cependant, on s'aperçoit vite de l’effet obtenu par la modi- 
tication des variables. Il est possible de faire des essais avec des fonc- 
tions plus complexes, comme par exemple le carré du sinus ou du 
cosinus, où bien leur multiplication/division par d'autres facteurs. 


SPIRALES 


Les spirales sont générées par le programme de tracé de cercle modi- 
fié de telle sorte que le rayon ne soit pas constant : 


10 MODE 1 
20 GOSUB 1000 


100 END 
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1000 xorigin=315: yorigin=190 
1010 ORIGIN xorigin, yorigin 
1020 colour=1 

1030 increaseradius=0.5 


1040 stepsize=PI/30 


1048 REM endangle determine le nombre de 
spirales 


1050 endangle-=40 
1060 startradius=1 
1070 GOSUB 2000 
1900 RETURN 


2000 MOVE 0,0 


2010 FOR angle=0 TO endangle STEP stepsi 
ze 


2020 DRAR startradiusASIN(angle), startra 
diusACOS( angle), colour 


2030 startradius=startradiustincreaserad 
ius 


2040 NEXT 
2050 RETURN 
L'addition de quelques lignes permet de tracer plusieurs spirales 
imbriquées : 
1080 startradius=10 
1090 GOSUB 2000 
1100 startradius=20 


1110 GOSUB 2000 


La spirale peut être animée de manière à simuler une rotation ; il 
suffit de tracer les points en différentes couleurs puis d'utiliser la com- 
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mande INK pour afficher alternativement la couleur du fond et celle 


du dessin : 


10 
20 


29 
es 


30 
40 
50 
60 
70 
80 


90 


MODE 7 
GOSUB 1000 


REM initialisation des INK pour que 1 
points changent de couleur 


INK 1,1,20 

INK 2,20,21 
reponseS="" 

RHILE reponseS="" 
reponseS$=INKEYS 
REND 


INK 1,24: INK 2,20 


100 END 


1054 REM ink 1=ink 2 


1055 INK 1,20 


2015 IF colour=1 THEN colour=2 ELSE colo 


ur- 


1 


C'est une technique très utile que nous utiliserons encore au cours 
de cet ouvrage. 


MODÈLES RÉPÉTITIFS 


De nombreux modèles de papier peint sont générés par la répéti- 
tion d’un motif : 


10 
20 


yo 


MODE 71 
GOSUB 1000 
END 


998 REM donnees pour tracer un octogone 
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1000 


1001 


xstart=0: ystart=0 


REM xstart et ystart determinent le 


centre du premier polygone 


1010 
1020 
1030 
1040 
1050 
1060 
3000 
3010 
3020 
3030 
3040 
3050 


radius=40 

sides=8 

stepsize=2*PI/sides 

colour=2 

GOSUB 3000 

RETURN 

centrex=xstart: centrey=ystart 
RHILE centrex<639 OR centrey>399 
ORIGIN centrex, centrey 

MOVE O,radius 

FOR angle=0 TO 2XPI STEP stepsize 


DRAH. radius*SIN(angle) ,radius*COS(a 


ngle),colour 


3060 
3070 
3079 
3080 


NEXT 
centrex=centrextradius2 
REM si hors ecran on recommence 


IF centrex>639 AND centrey(399 THEN 


centrex=xstart: centrey=centreytradiusA2 


3090 
3100 


REND 


RETURN 


Des résultats plus élaborés sont obtenus si un second jeu de figures 
est superposé au premier (ces figures peuvent être complètement dif- 
férentes ou bien être des versions agrandies ou diminuées des 


premières) : 


30 GOSUB 2000 


1999 


REM donnees pour tracer un hexagone 
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2000 xstart=40: ystart=40 
20160 radius=40 

2020 sides=6 

2030 stepsizer2*PI/sides 
2040 colours“à 

2050 GOSUE 3000 


2060 RETURN 
Les rangées sont animées si leur origine est déplacée : 


36079 REM s1 hors ecran on recommence 


3080 IF centrex>6039 AND centrey<399 THEN 
GOSUB 4O0GO 


3090 HEND 
3100 RETURN 


HOGO IF xstart=0 THEN xstart=radius ELSE 
xstart=0 


4010 centrex=xstart: centrev=centreytradi 
us? 


4020 RETURN 


ROTATION DE FORMES 


Il'est relativement simple de modifier le programme de tracé de 
cercle pour qu'il dessine un polygone quelconque. 

Les lignes suivantes peuvent être incorporées sous la forme d’un 
sous-programme dans un programme qui agrandit et fait tourner une 
forme donnée en créant un modèle de spirale : 


10 MODE 1 
20 GOSUB 1000 
30 GOSUB 1500 


4O END 
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999 REM donnees pour tracer le polygone 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1500 
1510 


1520 


READ sides 

READ radius 

READ centrex,centrey 

READ radiuschange, anglechange 
colour=2 

stepsize=-2Pl/sides 
startangle=0: finishangle=24Pl 
RETURN 

ORIGIN centrex, centrey 

HHILE radius<200 


MOVE radiusXSIN(startangle), radius* 


COS( startangle) 


1530 FOR angle=startangle TO finishangle 
STEP stepsize 


1540 DRANH radiusSIN(angle), radius*COS(a 
ngle) ,colour 


1550 


NEXT 


1560 DRAN radiusASIN(startangle), radius* 
COS( startangle) 


1569 
1570 
1580 
1590 
1600 
1610 
2000 


2010 


REM-on incremente radius 
radius=radiustradiuschange 
Startangle=startangle+anglechange 


finishangle=finishangletanglechange 


REND 


RETURN 


DATA 3, 20, 300, 200, 5,1 


DATA 3, 20, 300, 200, 3,10 
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2020 
2030 
2040 
2050 


2060 


DATA 
DATA 
DATA 
DATA 


DATA 


4, 30, 300, 200, 4, 3 
6, 20, 300, 200,1,6 
6, 20, 300, 200, 6,1 
8,10, 300, 200, 5,10 


8, 10, 300, 200,5,2 


On fait tourner le programme. Les lignes DATA commençant ligne 
2000 contiennent les données relatives à un certain nombre de figures. 
On efface la première ligne DATA et on fait tourner à nouveau le 
programme pour voir quel est l’effet de la variation du nombre de 
côtés et à quelle vitesse la figure est agrandie et déplacée. Cette opé- 
ration est répétée pour les autres lignes de données. 


Certains effets très impressionnants sont obtenus grâce à l'emploi 
judicieux de la couleur : 


10 MODE 1 


20 GOSUB 1000 


29 REM INK 2 et 3 pour les points 


3Q GOSUB 1500 


HO INK 2,1,20 


50 INK 3,20,1 


5Q REM on attend la frappe d'une touche 


60 reponseS="" 


70 XHILE reponse$="" 


80 reponseS=INKEYS 


90 HEND 


99 REM retour a la normale 


100 INK 2,20 
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110 INK 3,6 
120 END 
1504 REM INK3=INK2 


1505 INK 3,20 


1595 IF colour=2 THEN colour=3 ELSE colo 
ur=2 





Figure 4.2 : Type de modèle généré par la rotation d’un modèle de base. 
La frappe d’une touche quelconque après le dessin de la figure pro- 


duit un effet irréel engendré par l'alternance des couleurs du fond 
et du dessin. 
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EXERCICES 


1. Créer une version modifiée du programme de dessin du polygone en lui 
faisant tracer deux polygones dont les sommets devront être reliés. 


2. Tester les commandes suivantes sur le programme qui génère un 
modèle moiré : modifier le pas de la boucle FOR … NEXT ; superposer 
un second modèle en utilisant des facteurs et des couleurs différentes ; 
déplacer l'origine pour créer un patchwork. 


3. Modifier le programme de rotation du polygone pour que le nombre de 
côtés du polygone varie au cours du déroulement. On peut alterner par 
exemple un triangle et un pentagone ou ajouter un côté au polygone à 
chaque rotation ; le cycle reprend lorsque la figure comporte 20 côtés. 


DESSIN SUR L'ÉCRAN 


Au lieu de laisser l’ordinateur créer son propre modèle, on peut 
écrire un programme qui permet à l'utilisateur de dessiner et de mani- 
puler des formes sur l'écran. Nous allons étudier cette possibilité dans 
le reste de ce chapitre. Toutes les commandes sont exécutées à partir 
du clavier pour que ces programmes soient accessibles à un public 
le plus large possible, mais ils peuvent être modifiés de façon à être 
utilisés avec des manettes de jeu. 

Au cours de cette section, nous travaillerons en mode 0, celui qui 
offre la gamme de couleurs la plus importante. Le premier module 
contient les caractéristiques essentielles de n'importe quel programme 
de dessin : il permet de tracer des points et des lignes dans différentes 
directions. 


10 MODE O0 

20 x=320: y=200 
30 colour=1 

HO MOVE x, y 


50 PLOT x,y,colour 


60 GOSUB 1000 
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70 END 


997 REM on scrute le clavier en attendan 
t la frappe de ‘e' 


1000 HHILE reponse$<>"e" 

1010 reponseS=INKEYS 

1020 IF reponseS$="a" THEN y=y+2 
1030 IF reponseS="2" THEN y=y-2 
1040 IF reponseS="," THEN x=x-4 
1050 IF reponseS="." THEN x=x+4 
1060 PLOT x,y,colour 

1070 HEND 


1030 RETURN 


Tout d’abord, un point est tracé aux coordonnées spécifiées 
ligne 40. La commande INKEY$ de la ligne 60 vérifie si une touche 
du clavier a été tapée ; le déplacement est généré par la frappe des 
touches a/z (déplacement vertical) ou ,/. (déplacement horizontal). 
Les coordonnées du point sont mises à jour et la position du nouveau 
point est tracée. 


On remarque que la structure de ce petit programme rend l'ad- 
jonction de commandes supplémentaires très facile. Pour l'instant, 
le déplacement du point est uniquement vertical ou horizontal, mais 
un déplacement en diagonale est possible si l’on ajoute des lignes 
à l’intérieur de la boucle des lignes 1000 à 1080. 


Sous cette forme, le programme n'autorise que des lignes continues 
et empêche tout déplacement sur une nouvelle position sans tracé. 
On peut ajouter des options pour que le point soit tracé soit dans 
la couleur du fond, soit dans la couleur du dessin lors de la frappe 
respective de ‘‘f” ou de ‘‘b’’ : 


10 IF reponse$ = ‘’f” THEN couleur = 1 
20 IF reponse$ = ‘’b" THEN couleur = 0 
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Malheureusement, une fois la couleur du fond sélectionnée, le point 
est invisible, ce qui rend son déplacement difficile. On peut contour- 
ner cette difficulté en traçant le point deux fois : 


35 couleurdessin = 1 
1005 PLOT x,y,couleur 
1060 PLOT x,y,couleurdessin 


Si la couleur du fond est sélectionnée, le point placé à la position 
x,y est tracé de façon invisible (ligne 1005) puis tracé dans la couleur 
du dessin (ligne 1060). En conséquence, le point clignote et sert de 
curseur pour identifier la position en cours. 


On peut effectuer un changement de couleur du dessin, soit en 
sélectionnant une couleur par la frappe d’une touche particulière, 
soit en ajoutant une ligne de programme : 


1053 IF reponse$ = ‘’c’”’ THEN couleur = 1 
+ (couleur + 1) MODE 3 


Cela permet un choix de trois couleurs qui génèrent des lignes 
différentes. 


Il est parfois difficile de voir la couleur du point ; par exemple, le 
tracé précis d’un rectangle n’est pas évident à l’œil nu. On pourrait 
se contenter d'afficher cette information sur l'écran mais nous allons 
profiter de cette occasion pour introduire la commande WINDOW 
qui définit sur l’écran une zone réservée à l'affichage de texte : 


15 WINDOW 1,40,24,25 
16 PRINT ‘Couleur : ” 
17 PRINT ‘> ; Ver 


Les quatre nombres suivant la commande WINDOW spécifient res- 
pectivement les coordonnées texte x définissant les côtés gauche et 
droit de la fenêtre, puis les coordonnées texte y définissant ses côtés 
inférieur et supérieur. Dans cet exemple, le texte sera affiché sur les 
lignes 24 et 25 : 
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1051 IF reponseS="f" THEN colour=foregro 
undcolour 


1052 IF reponse$="b" THEN foregroundcolo 
urscolour: colour=0 


1053 IF reponseÿ="c" THEN colour=1+{colo 
ur+i) MOD 3 


106Q PLOT x, y, Fforegroundcolour 
1065 GOSUB 2000 

1070 END 

1080 RETURN 


2000 IF oldcolour<>colour THEN LOCATE G, 
1: PRINT colour 


2010 IF oldx<>x THEN LOCATE 4,2: PRINT x; 


2020 IF oldy<>y THEN LOCATE 12,2: PRINT y 


L 
2030 oldcolour-colour 
2040 oldx=x: o0old,;=7 


2050 PETURN 


Les lignes peuvent maintenant être placées sur l'écran avec préci- 
sion car le programme fournit une mise à jour permanente de la cou- 
leur PEN du point en cours et de ses coordonnées x et y. On remarque 
que l’Amstrad considère toujours la fenêtre texte comme faisant partie 
intégrante de l’écran graphique. On s'aperçoit qu’il est possible de 
superposer des points au texte. 


Le programme comporte toujours un certain nombre d’imperfec- 
tions. Les lignes ne peuvent être effacées qu'en étant retracées dans 
la couleur du fond. Cela entraîne un autre problème quand le point 
établi dans la couleur du fond croise une ligne déjà dessinée ; dans 
ce cas, une partie de la ligne est effacée. Ce problème est cependant 
facile à résoudre si nous faisons pour cela appel à nos connaissances 
en binaire. 
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EXERCICES 


1. Le programme de dessin ne permet pas de vérifier si le point tracé se 
trouve en dehors de l'écran. Modifier ce programme pour qu'il soit 
impossible de sortir de l’écran ou de dessiner dans la fenêtre texte. 


. Étendre la gamme des couleurs pour qu'elles soient au nombre de 


seize. Utiliser la commande INK pour que les couleurs affichées ne 
soient pas seulement les couleurs par défaut du mode O mais soient 
initialement choisies à partir des vingt-sept couleurs disponibles. 


3. Ajouter quelques commandes supplémentaires pour que des lignes 
diagonales puissent être dessinées. 





UTILISATION DE EXOR 


Dans un chapitre précédent, nous avons étudié la correspondance 
entre les nombres binaires et les nombres hexadécimaux ; nous allons 
voir maintenant l'intérêt de ces nombres pour l'exécution d’opéra- 
tions graphiques. 

Il ne faut pas oublier que l'écran d'affichage est en fait la représen- 
tation d’une partie de la mémoire de l'ordinateur. Tous les caractè- 
res affichés et chaque ligne graphique dessinée sont générés par des 
valeurs binaires particulières stockées dans des zones mémoire que 
l’Amstrad examine pour élaborer son écran d'affichage. 

Toute ligne dessinée sur l'écran entraîne la modification des octets 
(valeurs binaires sur huit bits) correspondants dans la mémoire gra- 
phique. La valeur de ces octets détermine si un pixel doit être allumé 
ou éteint et, s’il est allumé, quelle est sa couleur. En fait, les couleurs 
de chaque pixel sont dérivées d'un octet unique d’une façon assez 
complexe que nous n'étudierons pas ici. Pour le problème qui nous 
concerne, nous allons utiliser un modèle simplifié de relation octet- 
pixel et considérer que la valeur d’un octet unique stocké en mémoire 
indique à l’Amstrad la valeur d’un seul pixel à afficher sur l'écran. 

On suppose que seules quatre couleurs sont utilisées et que les 
octets représentant la mémoire écran ont donc tous l’une des quatre 
valeurs de la Figure 4.3. 
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Code binaire Couleur 


00000000 Bleu 

00000001 Blanc 
00000010 Jaune 
00000011 Rouge 


Figure 4.3 : Représentations binaires possibles qui peuvent être utilisées par l'ordi- 
nateur pour indiquer quatre couleurs différentes. 


Si l'écran était complètement bleu, tous les octets auraient pour 
valeur 00000000 ; s’il était complètement blanc, ils auraient pour 
valeur 00000001 etc. Le dessin d’une ligne blanche sur l'écran à pour 
conséquence la modification des octets des pixels concernés (ils ont 
la valeur 00000001). Il en est de même pour une ligne jaune avec 
la valeur 00000010. Nous avons vu précédemment que les codes 
ASCII les plus bas donnent à l’Amstrad des commandes particulières 
telles que Déplacer le curseur d’un caractère en arrière ou Éteindre 
l'écran. Un de ces codes influence la manière dont l’Amstrad traite 
les points graphiques. 


On peut utiliser le code ASCII 23 pour que l'Amstrad dessine des 
points sur l'écran à l’aide de l'opérateur logique OÙ exclusif (EXOR 
où XOR). Sans cette option, l’Amstrad remplace simplement l'an- 
cienne valeur de l’octet par la nouvelle. Par exemple, pour une ligne 
dessinée en jaune, tous les octets de la ligne ont la valeur 00000010. 
L'utilisation de XOR provoque le tracé de tous les points en combi- 
nant l’ancienne valeur de chaque octet avec sa nouvelle valeur en 
fonction de certaines règles déterminées. 


Nous allons examiner un octet sur l'écran ; pour commencer, l’octet 
a pour valeur 00000000 c'est-à-dire qu'il indique un pixel coloré en 
bleu, couleur du fond, comme dans la Figure 4.4. Une ligne jaune 


passe par ce point (l’octet a pour valeur 00000010) comme dans la 
Figure 4.5. 


00000000 Point dans la couleur du fond, bleu. 


Figure 4.4 
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00000000 Point bleu et 
00000010 ligne jaune passant par ce point. 


Figure 4.5 


Étant donné que l'option XOR est établie, l’Amstrad ne remplace 
pas seulement l’octet 00000000 (bleu) par l’octet 00000010 (jaune) ; 
il combine la valeur des deux octets. Si les bits correspondants sont 
différents, le résultat est 1 ; si les bits correspondants sont identiques, 
le résultat est O0. L'affichage se termine par un point jaune, ce que 
nous aurions obtenu si nous n'avions pas utilisé l'option XOR. Cepen- 
dant, si on trace maintenant une ligne jaune identique sur la ligne 
qui vient d’être dessinée, l’effet est assez inattendu (voir la Figure 4.7). 
Étant donné que les bits constituant l’ancien octet et ceux qui cons- 
tituent le nouvel octet sont parfaitement identiques, l'option EXOR 
génère un octet qui a pour valeur 00000000. La ligne dessinée en 
bleu, couleur du fond, disparaît donc. Le dessin d’une autre ligne 
jaune nous replace dans la situation de la Figure 4.4 et la ligne 
réapparaît. 


00000000 Un point bleu et 
EXOR 00000010 une ligne jaune passant par ce point 
00000010 donnent un point jaune. 
Figure 4.6 
00000010 Un point jaune et 
EXOR 00000010 une ligne jaune passant par ce point 
00000000 donnent un point bleu, couleur du 
fond. 
Figure 4.7 
00000001 Un point blanc croisé par 
EXOR 00000010 une ligne jaune. 
Figure 4.8 


Que se passe-t-il si une ligne jaune est croisée par une ligne 
blanche ? L'option EXOR génère un point rouge comme dans la Figure 
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4.9. De nouveau, le second dessin d’une ligne de la même couleur 
restitue le dessin initial comme dans la Figure 4.10. 


00000001 Une ligne blanche croisée par 
EXOR 00000010 une ligne jaune donne un 
00000011 point rouge. 
Figure 4.9 
00000011 Un point rouge croisé par 
EXOR 00000010 une ligne jaune donne 
00000001 un point blanc. 
Figure 4.10 


L'opérateur logique EXOR peut ne pas sembler très utile, mais les 
effets graphiques obtenus sont inestimables dans n’importe quel pro- 
gramme de dessin. Des lignes peuvent être dessinées et effacées sans 
que cela affecte les autres lignes ; on peut faire des essais et déplacer 
les lignes sur des positions différentes avant de leur attribuer une place 
définitive à l’aide des commandes de dessin normal. La seule chose 
à faire est de s'assurer que toute ligne (ou point) est tracée deux fois 
par la commande EXOR de telle sorte qu'elle disparaisse. 


DESSIN DE DIAGRAMMES 


Avant d'examiner un programme de dessin utilisant l'option EXOR, 
nous allons résumer les caractéristiques qui peuvent être rajoutées 
au dessin : 

. Lignes fixées de manière temporaire où permanente. 

. Effacement de lignes. 

. Sauvegarde de dessins. 

. Dessin de formes standard telles que cercles, rectangles etc. 


. Translation, agrandissement ou autre transformation d’une partie 
du dessin. 


UT R & ND — 


Les deux derniers points de cette liste seront traités dans un pro- 
chain chapitre. Nous venons de découvrir comment dessiner des 
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lignes temporaires ; par conséquent, le point 1 ne présente aucun 
problème. Le moyen le plus simple pour parvenir à exécuter les points 
2 et 3 consiste à sauvegarder les coordonnées définitives dans un 
tableau. Cela permet d'identifier et d'effacer une ligne facilement et 
rend possible la sauvegarde du dessin dans un fichier. Il suffit de sau- 
vegarder la liste des coordonnées stockées dans un tableau et de les 
utiliser pour reproduire le dessin ultérieurement. 

Nous allons utiliser une structure modulaire pour que le programme 
puisse être étendu sans problème : 


10 MODE O0 

20 DIM x(100), y( 100) 

30 startx=320: starty-=200 

yO x=320: y=200 

50 foregroundcolour=1 

60 PRINT CHRS(23); CHRS(1); 

70 GOSUB 1000 

80 GOSUB 2000 

90 END 

999 REM trace de ligne 

1000 PLOT x, y, foregroundcolour 
1010 DRAH startx, starty 

1020 RETURN 

2000 HHILE reponse$<>'"e" 

2010 GOSUB 1000 

2020 reponseS$=LORERS(INKEYS) 
2030 IF reponseS="a" THEN y=y+2 
2040 IF reponseS="2" THEN y=y-2 


2050 IF reponseS="," THEN x=x-4 
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2060 IF reponse$="." THEN x=x+4 
2070 IF reponseS=" “ THEN GOSUB 3000 
2080 GOSUB 1000 

2090 REND 

2100 RETURN 

3000 PRINT CHRS(23); CHRS( O); 
3010 GOSUB 1000 

3020 PRINT CHRS( 23); CHRS(1); 
3030 count=count+1 

3040 x(count) =x: y( count) =y 

3050 startx=x: starty=y 

3060 RETURN 


La ligne 20 établit deux tableaux qui manipulent les coordonnées de 
100 points (ce nombre est arbitraire et peut être augmenté). Les coor- 
données du point en cours sont données par les valeurs des varia- 
bles x et y. Les valeurs de debx et deby donnent les coordonnées 
du dernier point ‘‘fixé”’. Ces coordonnées doivent être disponibles 
pour que l’on puisse tracer une ligne permanente entre les deux points 
si nécessaire. 

Le sous-programme de la ligne 2000 est le module conducteur du 
programme ; il scrute le clavier pour recevoir les entrées des données 
et trace ou efface successivement une ligne définie par les points 
debx,deby et x,y. Si on déplace le point x,y, on voit dans le sous- 
programme de la ligne 1000 que l’Amstrad dessine une ligne jaune 
vacillante entre ce point et le point debx,deby. 

La frappe de la barre d’espacement fixe la ligne de façon perma- 
nente par l'intermédiaire du sous-programme 3000. La ligne 3000 
replace le mode graphique, trace définitivement la ligne, puis replace 
l'ordinateur en option EXOR pour que le tracé continue. Les coor- 
données x et y du point en cours sont stockées dans les tableaux x() 
et y() et de nouvelles valeurs sont attribuées à debx et deby pour que 
la ligne suivante soit dessinée. 
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On peut modifier le programme pour dessiner où non une ligne : 


55 linedran=0 


999 REM trace d'une ligne (non si linedr 
an=0) 


1000 PLOT x, y, foregroundeolour 
100S IF linedran=0 THEN RETURN 
1010 DRAK startx,starty 

1020 RETURN 


2070 IF reponseS=" " THEN GOSUB 3000: lin 
edran=1 


2071 IF reponseS="1" THEN IF linedrax=0 
THEN linedran=1 ELSE linedrax=0 


La ligne 2071 utilise la touche ‘1’ comme commutateur pour tracer 
ou non une ligne. Quand tralign =0, la ligne n’est pas dessinée, puis- 
que le sous-programme de la ligne 1000 se termine avant que le point 
(x,y) soit relié au point (debx,deby). Le déroulement du programme 
montre qu’il n’est plus nécessaire de dessiner la première ligne à partir 
du point (debx,deby) et que le point peut être déplacé n'importe où 
avant d’être fixé par la frappe de la touche ‘‘f”. 

L'effacement d’une ligne est un peu délicat ; seul l'effacement de 
la dernière ligne tracée est autorisé, il est exécuté par l'intermédiaire 
de la frappe de la touche ‘‘d’’. 


2072 IF reponse$="d" THEN GOSUB 4000 


3998 REM ne fonctionne pas si on essaie 
d'effacer une ligne qui n'existe pas 


4000 x=x( count) : y=y( count) 

4010 count=count-1 

4020 startx=x( count): starty=y(count) 
4030 GOSUB 1000 


4040 RETURN 
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Cela permet l'effacement d’une ligne quelconque ainsi que celui des 
lignes tracées ultérieurement. 

Si la réponse du clavier est un peu lente, on peut ajouter les lignes 
suivantes : 


1 DEFINT c,f,l,0,s,x,y 
2 SPEED KEY 2,2 
89 SPEED KEY 10,5 


Nous avons déjà remarqué que l’utilisation de nombres entiers accé- 
lère le déroulement d’un programme. La commande SPEED KEY est 
suivie de deux nombres qui représentent le retard de la répétition 
des touches et la période de répétition ; l’unité est 1/50 de seconde. 
Ces deux valeurs déterminent la rapidité de réponse de l’Amstrad à 
la frappe d’une touche. Quand une touche est tapée, l'ordinateur 
attend un certain temps égal au retard de répétition avant de répéter 
les caractères. A partir de ce moment, le caractère est répété à certains 
intervalles gérés par la période de répétition. Il est essentiel de redon- 
ner à la commande SPEED KEY ses valeurs par défaut à la fin du pro- 
gramme. Une réponse trop rapide à la frappe des touches peut rendre 
l'écriture d’une instruction cohérente virtuellement impossible. Pour 
pouvoir sauvegarder un dessin, il est nécessaire de modifier légère- 
ment le programme. L'enregistrement des coordonnées de tous les 
points n’est plus adapté et il suffit de savoir si un point est relié au 
point précédent ou non : 


20 DIM x(100), y( 100}, 1( 100) 
3030 count=count+1 

3040 x(count) =x: y( count) =y 
3045 l(count)=linedran 

3050 startx=x: starty=y 
3060 RETURN 


4000 x=x( count): y=#( count): linedran=1l(co 
unt) 


Les tableaux x() et y() manipulent les coordonnées de tous les points. 
Un troisième tableau 1() est introduit pour indiquer si un point est 
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relié au précédent. Chaque fois qu’un point est fixé, 1(compt) est utilisé 
pour enregistrer la condition en cours de tralign. Si celle-ci est égale 
à O, la ligne n’est pas dessinée et le point en cours n’est pas relié au 
précédent. Toute valeur différente de O montre que la ligne a été tracée 
et que le point est relié au précédent. 


2074 
2075 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
7000 
7010 


7020 
es 


7030 
7040 
7050 
7060 
7070 
7080 
7090 


IF reponseS$="i" THEN GOSUB 7000 
IF reponseÿ="o" THEN GOSUB 8000 
CLG 

startx=x(1):starty=y(1) 

FOR value=2 TO count 

x=x( value):y=y(value) 
linedranr=l1( value) 

GOSUB 1000 

startx=x: starty=y 

NEXT 

x=320: y=200: linedran=0 

RETURN 

MODE 1 

PRINT"pour charger des donnees" 


INPUT'"donnez le nom du fichier";fil 


OPENIN fileS 

count=0 

HHILE NOT EOF 

count=count+1 

INPUT 49, x( count), y( count), 1( count) 
REND 


CLOSEIN 


=1285S 


7100 MODE 0 

7110 HINDOH 1, 20, 25,25 

7120 startx=x(count):starty=y(count) 
7130 x=startx: y=starty 

7140 GOSUB 6000 

7150 RETURN 

8000 MODE 1 

8010 PRINT'"pour sauvegarder une figure" 


8020 INPUT"donnez le nom du fichier",fil 
e$ 


8030 openoutfiles 
8040 counter=0 
8050 RHILE counter<=count 


8060 HRITE 49, x(counter),y(counter),1(co 
unter) 


8070 counter=counter+1 
8080 HEND 

8090 CLOSEOUT 

8100 MODE O 

8110 RINDOH 1, 20, 25,25 
8120 GOSUB 6000 


8130 RETURN 


Le sous-programme de la ligne 8000 écrit toutes les coordonnées et 
les données relatives à la connexion des points provenant des trois 
tableaux dans un fichier. Puis on utilise le sous-programme de la ligne 
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6000 pour recréer le dessin. Après avoir sauvegardé les données, il 
faut pouvoir les charger ; cela est exécuté par le sous-programme de 
la ligne 7000. Il n’est pas nécessaire de se placer en mode 1 pour 
l'exécution de ces sous-programmes, mais, dans ce mode, les mes- 
sages sont plus faciles à lire. Le sous-programme de chargement est 
appelé par la frappe de la touche ‘‘i”’ et le sous-programme de sau- 
vegarde est appelé par la frappe de la touche ‘‘’o'’ ; ces touches 
peuvent être remplacées par d’autres touches choisies par l'utilisateur. 


Le programme de dessin de base est presque complet. Nous allons 
simplement ajouter une option couleur : 


2073 IF reponseS="s" THEN GOSUB 5000 
5000 HINDOK 1,20,25,25 


5010 INPUT"facteur de modification",scal 


5020 FOR value=1 TO count 

5030 x( value) =scale“( x( value) -x) +320 
5040 y( value) =scale*( y( value) -y) +200 
5050 NEXT 

5060 GOSUB 6000 


5070 RETURN 


L'adjonction de la couleur soulève un problème ; en effet, pour 
être effacée, une ligne doit être dessinée avec EXOR et dans la couleur 
correcte. Sinon, une ligne blanche dessinée sur une ligne jaune n’ef- 
face pas la ligne initiale mais se contente de modifier sa couleur. Heu- 
reusement, il n’est pas nécessaire d'établir un autre tableau pour la 
couleur car cette information stockée dans 1() peut être utilisée pour 
l'effacement de ligne ou quand une image est dessinée à l’aide de 
données chargées à partir d’un fichier. 
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Nous allons conclure ce chapitre par une démonstration de la sou- 
plesse du programme. L'adjonction du sous-programme suivant per- 
met de créer un dessin, de l'agrandir ou de le réduire : 


2070 IF reponseS-=" " THEN GOSUB 3000: lin 
edrax=foregroundcolour 


2071 IF reponseS="1l" THEN IF linedran=0 
THEN linedrar=foregroundcolour ELSE line 
dran=0 


2076 IF reponseS$-="c" THEN foregroundcolo 
ur=1+(foregroundcolour+1) MOD 3 


3045 IF linedran>0O THEN l(count}=foregro 
undcolour 


4025 IF linedrax>0O THEN foregrouncolour= 
linedran 


La frappe de la touche ‘’s’’ appelle le sous-programme de la ligne 
5000, qui demande le facteur d'échelle qui servira à réduire ou à 
agrandir le dessin. Par exemple, la frappe de ‘2’ génère un dessin 
dont la taille est multipliée par deux. De même, ‘‘0.1”’ réduit le dessin 
à 1/10 de sa taille normale. 

Le programme utilise la capacité de l’Amstrad à accepter les coor- 
données x et y pour les commandes PLOT, MOVE et DRAW, même 
quand ces coordonnées se trouvent en dehors des limites de l'écran. 
L'ordinateur trace ces lignes, mais celles-ci ne sont visibles qu’à l’in- 
térieur de la zone graphique définie par l'écran (abscisse comprise 
entre 0 et 639 ; ordonnée comprise entre 0 et 399). 

Une fois le facteur d'échelle choisi, l’Amstrad multiplie toutes les 
coordonnées des tableaux x() et y() par ce facteur. La position en cours 
du curseur est utilisée comme point de départ de l'agrandissement. 
Le nouveau dessin est centré autour du point 320,200 qui est égale- 
ment considéré comme la nouvelle position du curseur. 

L'utilisation d’entiers peut sembler une bonne méthode d'accélé- 
ration du programme, mais elle présente ici un inconvénient, 
puisqu'elle limite le choix des facteurs d'échelle à des nombres entiers. 
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EXERCICES dé 


1. 


Ajouter quelques lignes à la fin du programme de dessin pour restituer 
le temps de réponse à la frappe des touches du clavier normal. 


. introduire des processus de vérification pour que le dessin ne puisse 


pas sortir de l'écran. 


. Ajouter un sous-programme au programme pour permettre à 


l'utilisateur de sélectionner un temps de retard et une période de 
répétition des touches de son choix. 


. Ajouter un sous-programme au programme pour que les coordonnées 


du curseur soient affichées en permanence sur l'écran. 


. introduire un effacement de lignes sélectif pour que des lignes autres 


que la dernière ligne créée puissent être effacées. || sera nécessaire 
d'établir un cycle pendant lequel toutes les lignes seront effacées puis 
redessinées à l’aide de la frappe d’une touche jusqu’à ce que la ligne 
recherchée soit atteinte et définitivement effacée. Il ne faut pas oublier 
de reporter cet effacement de ligne dans les données stockées dans les 
tableaux, sinon la ligne réapparaîtra lors du chargement des valeurs 
du tableau à partir du fichier. 
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' 


ANIMATION … 


DÉPLACEMENT DE LIGNES 


Dans le chapitre précédent, nous avons introduit l'opérateur logique 
EXOR et nous avons vu comment l'utiliser pour le dessin et l’efface- 
ment des lignes. Nous allons maintenant l'employer avec d'autres 
commandes pour améliorer la qualité de l'animation. Une méthode 
d'animation consiste à dessiner et effacer successivement une image 
de l'écran. C'est le moyen le plus simple et, si la figure n’est pas trop 
complexe, la rapidité de l'ordinateur est convenable. Le programme 
suivant déplace un rectangle sur l’écran en le dessinant et en l’effa- 
çant sur chaque position : 


10 MODE 1 

20 x=100: y=100 

30 xdistance=50: ydistance=100 
4O xinc=4 

50 HHILE x<639 

59 REM trace du rectangle 

60 colour=1: GOSUB 1000 

69 REM effacement du rectangle 
70 colour=0: GOSUB 1000 

80 x=xtxince 

90 HREND 

100 END 

999 REM instructions de tracage 
1000 MOVE x,y 

1010 DRAHR xdistance, 0, colour 
1020 DRAHR O, ydistance 

1030 DRAHR -xdistance, 0 

1040 DRARR O, -ydistance 


1050 RETURN 
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Une simple modification déplace le rectangle en diagonale : 


40 xinc=4 : yinc=2 
80 x=x+xinc : y=y+yinc 


L'adjonction de quelques lignes supplémentaires permet de faire 
‘’rebondir’’ la figure sur l'écran : 


45 continue=1 

50 HHILE continue=1 

59 REM trace du rectangle 

60 colour=1: GOSUB 1000 

69 REM effacement du rectangle 
70 colour=0: GOSUB 1000 


79 REM mise a jour des coordonnees (x et 
y) 


80 x=xt+xinc: y=y+yinc 


81 IF x<O OR x>639 THEN xinc=-xinc: x=x+2 
Axinc 


82 IF y<O OR y>399 THEN yinc=-yince: y=y+2 
xXyince 


90 HEND 


Les résultats ne sont pas aussi bons quand de nombreuses lignes 
sont concernées. 

Nous allons maintenant animer un dessin de chien très simplifié 
(voir la Figure 5.1). Deux figures sont dessinées dans des positions 
légèrement différentes. L'ordinateur commence par dessiner le chien 
dans une position, puis il l’efface et le dessine dans l’autre position. 
Après effacement de la seconde image, les coordonnées sont mises 
à jour et l’ensemble du cycle est répété. Pour simplifier l’alternance 
des deux images, il est conseillé de les stocker dans un tableau. 
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Figure 5.1 : Utilisation de la même figure dans deux positions différentes pour amé- 
liorer l'animation. 


10 MODE 71 

20 GOSUB 1000 
30 GOSUB 2000 
40 END 


998 REM on dimensionne 2 tableaux de 26 
coordonnees 


999 REM pour avoir 2 images du chien 
1000 DIM x( 100), y( 100) 

1010 FOR count=1 TO 52 

1020 READ x(count), y( count) 

1030 NEXT 


1040 RETURN 


1050 DATA 0,0, 20, 40, 20, 40, 10, 80, 10, 80, 0, 
120, 20, 10, 35, 50, 35, 50, 10, 80, 10, 80, 70, 80 


1060 DATA 60, 0, 80, 40, 80, 40, 70, 80, 80, 10, 9 


,120,110,120, 80,110 ”  ” 0985 : 


1070 DATA 5,10, 25, 40, 25, 40, 15, 80,15, 80,1 
0, 120, 0, 15, 30, 50, 30, 50, 15, 80, 15, 80, 75, 80 
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1080 DATA 75,80, 85, 40, 85, 40, 65, 10, 75, 80, 
90, 50, 90, 50, 60, 15, 75, 80, 100, 130, 100, 130, 
120,110, 120, 110, 90, 100 


1999 REM on dessine et on efface success 
ivement le chien 


2000 xinc=0 
2010 flag=0 
2020 HRHILE x(1)+xinc<639 


2030 IF flag=0 THEN start=1: flag=1 ELSE 
start=27: flag=0 


2039 REM dessin du chien 
2040 colour=1: GOSUB 3000 
2049 REM effacement du chien 
2050 colour=0: GOSUB 3000 


2059 REM changement de position pour des 
siner le nouveau chien 


2060 xinc=xinc+20 

2070 REND 

2080 RETURN 

3000 FOR count=start TO start+25 STEP 2 
3010 MOVE x(count) +xinc, y( count) 


3020 DRAH x(count+1) +xine,y(count+1),col 
our 


3030 NEXT 


3040 RETURN 


Dans ce cas, l’ensemble du processus est trop long parce que la 
figure est effacée et redessinée entièrement chaque fois. Il est donc 
nécessaire d'utiliser une autre méthode en se servant des possibilités 
évoquées dans le Chapitre 3 ; l'ordinateur peut modifier la gamme 
des couleurs disponibles dans un mode grâce à la commande INK. 
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Si une figure est dessinée à l’aide de la commande PEN initialisée 
avec la couleur du fond, cette figure peut apparaître instantanément 
lorsque l’on modifie les paramètres de la commande INK pour qu elle 
soit affichée dans la couleur du dessin. 

Le programme suivant utilise cette méthode pour afficher alterna- 
tivement deux rectangles dessinés à différents endroits de l'écran. 
Chaque fois qu’une touche est tapée, les couleurs INK sont modifiées 
de telle sorte que le rectangle affiché précédemment passe dans la 
couleur du fond (il est donc effacé), tandis que l’autre prend la couleur 


du dessin : 


10 
20 
30 
39 
40 
49 
50 
60 
70 
79 
80 


89 
EN 


90 


MODE 1 

x=100: y=100 

xd=50: yd=100 

REM PEN 1 pour la couleur du fond 
INK 1,1 

REM dessin d'un rectangle avec PEN 1 
colour=1: GOSUB 1000 

x=300: y=300 

xd=100: yd=50 

REM PEN 2 pour la couleur du fond 
INK 2,1 


REM dessin du second rectangle avec P 
2 


colour= 2: GOSUB 1000 


100 continue=1 


109 REM affichage jusqu'a ce que 'e' soi 


#“ 


t tape 


110 RAHILE reponseS«>"e" 


119 REM PEN 1 couleur principale PEN 2 c 
ouleur du fond 


120 INK 1,24 


24194 


130 
140 
150 
160 
170 


179 
oule 


180 
190 
200 


209 
e 


210 
220 
230 
240 
249 
250 
260 
270 
356 
1000 
1010 
1020 
1030 
1040 


1050 


INK 2,1 

reponse$="" 

RHILE reponseS="" 
reponseS=LORERS(INKEYS) 
REND 


REM PEN 2 couleur principale PEN 1 c 
ur du fond 


INK 1,1 
INK 2,24 
reponse$="" 


REM attente de la frappe d'une touch 


HHILE reponseS="" 
reponseS$=LOHERS$S(INKEYS) 
REND 
REND 

REM retour a la couleur initiale 
INK 1,24 
INK 2,20 

END 
RUN" 

MOVE x,y 

DRARR xd,0,colour 
DRAHR O, yd 

DRAKR -xd, O 

DRAHR O,-yd 


RETURN 
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Cet affichage est très rapide parce que les figures dessinées aupara- 
vant sont affichées instantanément. Ce principe pourrait être étendu 
de façon à animer une séquence de dessins en les élaborant dans 
la couleur du fond, puis en les affichant successivement. Cependant, 
cette méthode ne peut pas être utilisée telle quelle pour l'animation 
du dessin de chien, parce que le chevauchement des images pose 
un problème : 


59 REM chevauchement du second rectangle 
60 x = 120 : y= 100 


Une partie du rectangle manque quand les figures se chevauchent ; 
une ligne est commune aux deux figures et l'attribution de la couleur 
du fond pour un rectangle supprime une partie de l’autre. 

Si les lignes ne se chevauchent pas, la modification des couleurs 
(INK) génère une animation rapide et réussie, surtout en mode 0 dans 
lequel on dispose de seize couleurs différentes. Il est possible de des- 
siner jusqu’à quinze images dans la couleur du fond, de les afficher 
successivement en leur attribuant la couleur d'encre adéquate puis 
de leur attribuer à nouveau la couleur du fond : 


10 MODE O 

19 REM position de depart 
20 startx=260: starty=180 
29 REM taille des cotes 
30 lengthx=20: lengthy=20 


39 REM difference de taille entre les re 
ctangles 


40 incx=8: incy=6 

50 startink=1: endink=15 
60 GOSUB 1000 

70 GOSUB 2000 

80 END 
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998 REM dessin de 15 rectangles dans la 
couleur du fond 


999 REM imbriques les uns dans les autre 
s 


1000 FOR count=startink TO endink 
1010 INK count,1 

1020 movex=count*incx 

1030 movey=count*incy 

1040 sidex=lengthxt2*movex 

1050 sidey=lengthy+2*movey 

1060 MOVE startx-movex, starty-movey 
1070 DRAHR sidex,0,count 

1080 DRARR O,sidey 

1090 DRARR -sidex, O 

1100 DRARR O0, -sidey 

1110 NEXT 

1120 RETURN 

1999 REM 

2000 continue=1 

2010 startink=1: nextink=2 

2019 REM on continue 

2020 HHILE continue=1 


2029 REM attente de la frappe d'une touc 
he 


2030 reponseS="" 
2040 HHILE reponse$="" 
2050 reponse$=INKEYS 


2060 REND 
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2069 REM le rectangle precedent prend la 
couleur du fond 


2070 INK startink,1 


2079 REM le rectangle suivant prend la c 
ouleur principale 


2080 INK nextink, 24 


2088 REM incrementation des INK afin qu' 
au prochain cycle 


2089 REM les INK actuelles prennent la c 
ouleur du fond et les nouvelles la coule 
ur principale 


2090 startink=(startink+1) MOD 16 
2100 IF startink=0 THEN startink=1 
2110 nextink=(nextink+1) MOD 16 
2120 IF nextink=0 THEN nextink=1 
2130 REND 


2140 RETURN 


Cette méthode est particulièrement efficace si l'affichage est cyclique 
comme dans cet exemple ; elle a cependant certaines limites car on 
ne peut pas toujours éviter le chevauchement de lignes. 

L'option EXOR évite que le dessin d’une ligne perturbe les lignes 
déjà présentes : 


15 PRINT CHR$(23) CHRS$(1); 
265 PRINT CHR$(23) CHR$(0); 


C'est un succès partiel ; les deux rectangles sont complètement visi- 
bles, mais les points qui leur sont communs apparaissent en rouge. 
Cela est engendré par la manière dont les couleurs sont représen- 
tées en mode 1. 

Seules quatre couleurs peuvent être affichées simultanément en 
mode 1, parce que la couleur de chaque point est déterminée par 
un code sur deux bits. Étant donné qu'il existe seulement quatre com- 
binaisons différentes avec deux bits, seules quatre couleurs sont pos- 
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sibles. Ces codes ne changent jamais bien que l’on puisse employer 
la commande INK pour que l'ordinateur interprète n'importe quel 
code comme une couleur différente. Par exemple, si on utilisait la 
commande INK 1,6, l'ordinateur afficherait un pixel rouge et non 
jaune. 


00000000 Bleu Effectivement, la couleur 
00000001 Jaune de n'importe quel point 

00000010 Cyan est codée sur deux bits. 

00000011 Rouge 


Figure 5.2 : Code binaire des quatre couleurs en mode 1. 


Dans cet exemple, on dessine deux rectangles, l’un à l’aide de la 
commande INK 1 (code 01) et l’autre à l’aide de la commande INK 2 
(code 10). L'option EXOR associe l’ancienne et la nouvelle combi- 
naison des bits selon une règle simple : si les bits sont identiques, 
le résultat est 0 ; si les bits sont différents, le résultat est 1. Quand 
les deux rectangles se chevauchent, on obtient le résultat de la Figure 
5.3. Le code 11 indique PEN 3, établi à rouge en model, et la ligne 
est affichée en rouge. Cela soulève un problème. Si l’on utilise la com- 
mande INK pour réinitialiser PEN 3 de telle sorte qu’il génère la cou- 
leur jaune plutôt que rouge, la zone de chevauchement devient 
invisible : 


11 REM utiliser 3 pour l'encre jaune 
12 INK 3,24 
261 REM 3 rétablit l'encre jaune à la fin 
262 INK 3,6 


Bien que les rectangles se chevauchent, ils peuvent être affichés alter- 
nativement en commutant les paramètres de la commande INK. C'est 
la base d’une méthode générant une animation plus dynamique : 


1. La première figure est dessinée dans la couleur du dessin et 
affichée. 


2. La seconde figure est dessinée à l’aide de la commande PEN éta- 
blie dans la couleur du fond. 


3. Les couleurs INK sont commutées pour que la seconde figure soit 
affichée et la première occultée. 


4. La première figure est effacée de son ancienne position. 
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5. Une nouvelle figure est dessinée dans la couleur du fond. 


6. Les couleurs sont commutées pour que la nouvelle figure soit affi- 
chée et la seconde occultée.. 


…et ainsi de suite jusqu’à ce que l’animation soit complète. La seule 
difficulté vient du chevauchement des figures ; il nous faut donc tracer 
ou effacer une figure sans en affecter une autre. Nous allons examiner 
ce problème de plus près. 

On suppose que l’on travaille en mode 1 et que les deux figures 
successives sont dessinées respectivement à l’aide des commandes 
PEN 1 et PEN 2. Cela nous donne une idée des quatre codes couleur 
exprimés sur deux bits. Il n’est pas nécessaire de s'occuper des cou- 
leurs réellement affichées sur l'écran, puisque la commande INK 
permet de choisir la couleur générée par n'importe quelle commande 
PEN. Nous nous intéresserons plus particulièrement aux codes deux 
bits et à leur fonctionnement. 


01 Un point d’une ligne jaune 
EXOR 10 chevauché par une ligne cyan 
11 donne un point rouge 


Figure 5.3 


Pour effacer une ligne quelconque dessinée à l’aide de la commande 
PEN 1, il faut convertir le code 01 en 00, couleur du fond. Cela peut 
être réalisé à l’aide de la commande EXOR. Cependant, certains points 
de la ligne peuvent chevaucher des points de la ligne de la seconde 
figure, le code est donc 11. N'importe quel chevauchement produit 
une couleur correspondant à PEN 2. L'instruction EXOR ne résout 
pas tous les problèmes ; si un point se trouve à l'intersection de deux 
lignes, l'effacement d’une ligne fait disparaître ce point, mais l’effa- 
cement de la seconde ligne le fait réapparaître. On peut obtenir le 
résultat désiré d’une façon légèrement différente en utilisant un autre 
mode de dessin de ligne disponible sur l’Amstrad et que nous allons 
aborder maintenant. 

La couleur peut être déterminée à l’aide d’une instruction AND 
(ET logique) qui associe l’ancien et le nouveau code du point. Cela 
est réalisé grâce aux codes de contrôle PRINT CHR$(23) CHRS$(2), 
qui entraîne l’utilisation de l'instruction AND pour toutes les com- 
mandes graphiques ultérieures. 
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01 Un point sur une ligne jaune 
EXOR 01 croisé par une ligne jaune 
00 donne un point bleu, couleur du fond. 


Figure 5.4 


11 Un point rouge 
EXOR 01 croisé par une ligne jaune 
10 donne un point cyan. 


Figure 5.5 
01001101 
AND 11100100 
01000100 


Figure 5.6 : Exemple de résultat généré par la commande AND. 


Après une commande AND), le bit est établi à 1 seulement si les 
bits de rang correspondants sont égaux à 1 ; sinon, le code est établi 
à 0. On peut effacer les points dessinés avec la commande PEN 1 
en leur associant le code 10 à l’aide d’une instruction AND (voir la 
Figure 5.7). Dans ce cas, les points de chevauchement restent dans 
la couleur correcte comme le montre la Figure 5.8. De même, on 
peut effacer les points dessinés avec la commande PEN 2 en leur asso- 
ciant le code 01 à l’aide de l'instruction AND (voir la Figure 5.9). 


01 Un point sur une ligne jaune 
AND 10 croisé par une ligne cyan 
00 donne un point bleu, couleur 


du fond. 


Figure 5.7 
11 Un point rouge 
AND 10 croisé par une ligne cyan 


10 donne un point cyan. 


Figure 5.8 
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10 Un point cyan 
AND 01 croisé par une ligne jaune 
00 donne un point bleu, couleur 
du fond. 


Figure 5.9 
Nous allons maintenant reprendre le dessin sans affecter les points 


déjà tracés. On suppose que le crayon utilisé est PEN 1. Les résultats 
désirés pour les différents points apparaissent Figure 5.10. 


Code désiré après croisement 
Code couleur du point du point et de la ligne 
dessinée avec PEN 1 





Figure 5.10 


Aucune des deux commandes EXOR et AND ne donne le résultat 
recherché. Il existe une autre instruction logique que nous ne con- 
naissons pas encore, l'instruction OR. Elle est établie par les codes 
de contrôle PRINT CHR$(23) CHR$(3) et a pour résultat 1 si un au 
moins des bits a pour valeur 1. On peut associer au code couleur 
le code 01 à l’aide de l'instruction OR ou lui associer le code 10 
comme dans la Figure 5.12. 


01001101 
OR 11100100 
11101101 


Figure 5.11 : Exemple de résultat d'une instruction OR. 


00 01 10 11 
OR 10 OR 10 OR 10 OR 10 
10 11 10 11 


Figure 5.12 
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l'est maintenant possible d'identifier une séquence de tracés et 
de couleurs qui dessine ou efface à la demande, comme le montre 
le programme suivant. 


16 MODE 1 

20 INK 3,24 

30 DEFINT c,s,t,x,y 

HG x=100: 77-100 

50 x1=100: y1=200 

00 colour=i: colour1ir2 

70 type=3: shade=1 

80 GO3UB 1000 

36 GOSUB 2000 

100 type=3: shade”2 

110 HAILE x<639 

120 x=x+4: x1=x1+4 

130 GOSUB 2000 

140 CGOSHB 1000 

150 x:x-4: x1=x1-1 

100 GOSUB 2000: x=x+4: x1=xi+E4 
170 1F shade=2 THEN shade=1 ELSE shade=2 
180 REND 

129 REM retour des INK au mode initial 
190 INK 1,24 

200 INK 2,20 

210 INK 3,6 


20 END 


- 143 - 


933 REM la couleur d'avant plan devient 
couleur du fond 


999 REH celle du fond la couleur d'avant 
plan 


1000 IF colour=1 THEN colour=24: colour1= 
1 ELSE colour=:1: colour1i=24 


1010 INK i,colour 

1020 INK 2,colouri 

1030 RETURN 

1992 REM routine effacement/ecriture 
1999 REX 

2000 PRINT CHR$S(23); CHRS( type); 

2010 MOVE x, y 

2020 DRAX x1,y1, shade 

2030 DRAK x1+50, y1 

2040 DRAH x+50, y1 

2050 DRAH x,y 

2060 IF type=2 THEN type=3 ELSE type=2 
2070 RETURN 


La ligne 100 replace temporairement les coordonnées du triangle dans 
leur position initiale pour qu’il puisse être effacé pendant qu'il se 
trouve dans la couleur du fond. La ligne 120 commute les couleurs 


qui servent au dessin ou à l'effacement et la ligne 2030 commute les 
modes de tracé OR et AND. 


On peut appliquer cette technique à l'animation du dessin du chien. 
10 MODE 1 


14 REM on utilise des entiers pour plus 
de vitesse 


15 DEFINT c,s,t,x,y 
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20 GOSUB 1000 

30 GOSUB 2000 

HO PRINT CHR$(23)CHRS(O); 
50 END 


998 ON dessine dans deux Plans de 26 coo 
rdonnees 


999 REM pour avoir deux images du chien 
1000 DIM x(100), y( 100) 

1010 FOR count=1 TO 52 

1020 READ x(count),y(count) 

1030 NEXT 

1040 RETURN 


1050 DATA O0, 0, 20, 40, 20, 40, 10, 80, 10, 80, O, 
120, 20, 10, 35, 50, 35, 50, 10, 80, 10, 80, 70, 80 
1060 DATA 60, O, 80, 40, 80, 40, 70, 80, 80, 10,9 
5, 50, 95, 50, 70, 80, 70, 30, 90, 140, 90, 140,110 
, 120,110, 120, 80,110 


1070 DATA 5,10, 25, 40, 25, 40, 15, 80, 15, 80,1 
0, 120, 0, 15, 30, 50, 30, 50, 15, 80, 15, 80, 75, 80 


1030 DATA 75, 80, 85, 40, 85, 40, 65, 10, 75, 80, 
90, 50, 90, 50, 60, 15, 75, 80, 100, 130, 100, 130, 
120,110, 120,110, 90,100 


1999 REM on utilise INK 3 pour corriger 
la couleur pour le ou exclusif 


2000 INK 3,24 
2010 colour=1: colour1=24 
2020 type=3: shade=1 


2029 REM on dessine la figure a la posit 
ion initiale 


2030 GOSUB 4000 


2040 GOSUB 5000 
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2050 type=3: shade=2 
2060 xinc=0 
2070 RHILE x(1) +xinc<639 


2079 REM mise a jour de xinc pour positi 
onner la nouvelle figure 


2080 xinc=xinc+20 


2089 REM on dessine la nouvelle figure d 
ans la couleur du fond 


2090 GOSUB 5000 


2100 GOSUB 4000 


2109 REM on efface la figure precedente 
en utilisant la couleur de fond 


2110 xinc=xinc-20 
2120 GOSUB 5000 
2130 xinc=xinc+20 


2140 IF shade=2 THEN shade=1 ELSE shade-= 
2 


2150 HEND 
2160 RETURN 


2999 ON dessine le chien comme une serie 
de points continues 


3000 FOR count=start TO start+25 STEP 2 
3010 MOVE x(count) +xinc, y( count) 


3020 DRAK x(count+1) +xinc, y(count+1),sha 
de 


3030 NEXT 

3040 RETURN 

3999 ON inverse les couleurs 

4000 IF colour=1 THEN colour=24: colouri= 


1 ELSE colour=1: colour1=24 
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4010 INK 1,colour 
4020 INK 2,colour1i 
4030 RETURN 


4999 REM on change de mode suivant que 1 
‘on efface ou que l'‘on dessine 


5000 PRINT CHRS( 23) CHRS(type); 


5010 IF type+shade=4 THEN start=1 ELSE s 
tart=27 


5020 GOSUB 3000 


5030 IF type=2 THEN type=3 ELSE type=2 


5040 RETURN 








EXERCICES 


1. Dessiner une série de cercles dans des positions et des couleurs diffé- 
rentes, puis simuler des ballons qui rebondissent en affichant alterna- 
tivement chaque cercle dans les couleurs du fond et du dessin. 


2. Créer deux images de petits bonshommes stylisés qui ont alternati- 
vement les bras le long du corps et levés à l'horizontale. 


CRÉATION DES COULEURS DU DESSIN ET DU FOND 


Nous allons étudier maintenant une autre conséquence de la mani- 
pulation des couleurs INK. Ce programme dessine deux rectangles 
qui se chevauchent ; cette fois-ci, les rectangles sont entièrement 
colorés, l’un en jaune et l’autre en bleu : 


10 MODE 1 


19 REM jaune pour la couleur d'avant pla 
n 


20 INK 3,24 


30 PRINT CHRS(23)CHRS(1); 


SAT à 


40 x=100: y=100 

50 xd=50: yd=100 

60 INK 1,24 

70 colour=i: GOSUB 1000 

80 x=120: y=100 

90 xd=100: yd=50 

100 INK 2,20 

110 colour=2: GOSUB 1000 

120 PRINT CHRS( 23) CHRS( O); 

130 END 

999 REM on rempli le rectangle 
1000 FOR xcoord=x TO x+xd STEP 2 
1010 MOVE xcoord, y 

1020 DRAHR O, yd, colour 

1030 NEXT 


1040 RETURN 


Après déroulement du programme, il n’est pas étonnant de constater 
que l’un des rectangles masque une partie du second. Ce qui est sur- 
prenant, c’est que le rectangle jaune dessiné en premier, cache une 
partie du rectangle bleu dessiné en second. Cela est la conséquence 
de la ligne 20 qui contient les indications suivantes : ‘‘Faire apparaître 
toute zone de chevauchement en jaune’’. Nous avons décidé que 
le jaune serait la couleur du dessin et le bleu la couleur du fond, et 
que, dans le cas d’un chevauchement, le jaune serait prioritaire. 

Si on modifie la ligne 20 pour que toute zone de chevauchement 
soit affichée en bleu, le rectangle bleu cache partiellement le rectangle 
jaune : 


19 REM coloration du dessin en bleu 
20 INK 3,20 


SAGE 


La possibilité de donner une priorité aux couleurs est très utile dans 
les jeux. On peut, en établissant les couleurs INK de manière appro- 
priée, organiser les couleurs de telle sorte qu’une figure puisse être 
superposée à une autre sans l’effacer. De même, une figure peut 
passer ‘’derrière’’ des zones tracées dans la couleur du dessin et res- 
sortir de l’autre côté parfaitement intacte. 


Dans le Chapitre 2, nous avons étudié une des méthodes d’anima- 
tion les plus simples en utilisant l'instruction TAG et en affichant le 
caractère sur sa nouvelle position : 


10 MOLE 1 
20 x=230: y=130 


29 REM dessin et coloriage d'un rectangl 
e 


30 FOR xcoord=x TO x+100 STEP 2 
4O MOVE ‘xcoord, y 

50 DRAHR 0,100, 

6O NEXT 

70 xprint=0: yprint=180 

79 REM curseur texte ou graphique 
80 TAG 


89 REM on affiche le caractere a des pos 
itions succesives 


90 FOR xcoord=xprint TO 400 STEP 2 
100 MOVE xcoord, yprint 

110 PRINT CHRS(233); 

120 NEXT 


130 END 
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Le caractère efface une partie du fond pendant son déplacement. L’uti- 
lisation d’un caractère ‘’non limité”’ à gauche donne des résultats 
encore plus mauvais : 


109 REM caractere ‘’non limite’’ à gauche 
; une fleche 
110 PRINT CHRS$(243) 


La solution consiste à utiliser l'instruction TAG en combinaison avec 
l'instruction EXOR. Cependant, le simple affichage du caractère ne 
suffit pas : 


10 MODE 1 
20 x=230: y=130 


29 REM dessin et coloriage d'un rectangl 
e 


30 FOR xcoord=x TO x+100 STEP 2 
40 MOVE xcoord, y 

50 DRAHR 0,100,1 

60 NEXT 

70 xprint=0: yprint=180 

71 REM 

75 PRINT CHRS(23)CHRS(1); 

80 TAG 


89 REM affichage d'un caractere a des po 
sitions successives 


90 FOR xcoord=xprint TO 400 STEP 2 
100 MOVE xcoord, yprint 

110 PRINT CHRS(243); 

120 NEXT 


130 TAGOFF 
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140 PRINT CHR$(23)CHR$(O); 


150 END 


Le résultat est encore pire parce que le caractère est associé, par 
la commande EXOR, à son image déplacée d’un pixel vers la droite ; 
le résultat de cette combinaison ne donne pas le caractère initial. 


Nous allons concevoir notre propre caractère flèche avec une limite 
à gauche, comme dans la Figure 5.13. La flèche sera affichée à partir 
de la position de départ sur l'écran ; ensuite, les caractères seront 
affichés (en combinaison EXOR) successivement sur chaque pixel 
placé à droite du pixel en cours. Il faut d’abord définir un second 
caractère qui, combiné avec le caractère initial, donne une copie du 
caractère initial déplacée d’un pixel vers la droite. Cela est plus facile 
à comprendre sur un diagramme (voir la Figure 5.14). 


On peut trouver la définition du caractère flèche en examinant la 
définition de la flèche initiale, rangée par rangée, et en calculant 
quelles valeurs il faut lui associer pour la reproduire. Cela est plus 
facile à réaliser en binaire, comme le montre la Figure 5.15, dans 
laquelle nous calculons le premier nombre nécessaire à la définition 
du caractère. La première ligne du caractère modifié par EXOR doit 
être 24. On pourrait continuer de la même manière, mais il existe 
un moyen plus rapide ; la combinaison de deux nombres binaires 
par une instruction EXOR donne un résultat particulier. La combi- 
naison du nombre initial avec le résultat obtenu donne le second 
nombre. Par conséquent, la nouvelle définition peut être trouvée plus 
facilement en combinant chaque ligne du caractère initial avec la 
même ligne déplacée d’un pixel vers la droite (voir la Figure 5.17). 
Il est possible d’incorporer les deux caractères dans un programme 
pour démontrer que la méthode de combinaison laisse le fond intact : 


84 REM on definie la premiere fleche a a 
fficher 


85 SYMBOL 240,8,12,14,127,127,14,12,8 
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86 REM maintenant on definie la fleche €e 
n faisant un ou exclusif 


87 SYMBOL 241,24, 20, 18,129,129,18, 20, 24 
90 FOR xcoord=xprint TO 400 STEP 2 
100 MOVE xcoord, yprint 


108 REM affichage de la fleche originale 
a la premiere position 


109 REM puis la seconde pour la placer a 
une nouvelle position 


110 IF xcoord=xprint THEN PRINT CHRS(240 
), ELSE PRINT CHRS(241); 


120 NEXT 

130 TAGOFF 

140 PRINT CHR$(23) CHRS(O); 
150 END 





Figure 5.13 : Caractères avec une limite. 
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caractère flèche 
initial (caché) 





second carac- 
<— tère affiché un 
pixel à droite 


(ENT EEE HOERT RE RER ERRE DFE 


le résultat est la 
flèche initiale dé- 
placée d’un pixel 
vers la droite 


Figure 5.14 : Copie, à l’aide de la commande EXOR d'un premier caractère affiché 
un pixel vers la droite. 


00001000 Nombre binaire correspondant 
à la première rangée 
du caractère flèche (8) 
EXOR 00011000 associé à ce nombre binaire (24) 
00001000 pour donner le premier code 
déplacé vers la droite (8). 


Figure 5.15 
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00001000 Nombre binaire correspondant 
à la première rangée 
du caractère flèche (8) 
EXOR 00001000 Résultat que l’on veut obtenir 
après combinaison entre 8 
00011000 et 24. 


Figure 5.16 


00001100 Nombre binaire correspondant 
à la première rangée 
du caractère flèche (12) 
EXOR 00001100 Résultat que l’on veut obtenir 
après combinaison entre 12 
00010100 et 20. 


00001110 Nombre binaire correspondant 
à la troisième rangée 
du caractère flèche (14) 
EXOR 00001110 Résultat que l'on veut obtenir 
après combinaison entre 12 
00010010 et 18. 


et ainsi de suite pour les autres rangées de la définition de 
caractères. 


Figure 5.17 : Pour trouver la définition de caractères, il faut générer une copie du 
caractère flèche déplacée d'un pixel sur la droite. 


Cela donne la possibilité de générer toutes sortes d'effets dans des 
programmes de jeux. On peut créer, en combinant les instructions 
TAG et EXOR et en modifiant les couleurs INK, une gamme de carac- 
tères de jeux qui se comportent de différentes manières. Par exemple, 
les protagonistes du jeu peuvent se déplacer parmi les blocs jaunes, 
mais pas parmi les bleus ; les fantômes qui les poursuivent peuvent 
seulement traverser les bleus et rien n'arrête le ‘‘super fantôme”. 

Lors de la création d’un caractère, il ne faut pas oublier d'ajouter 
une bordure d’un pixel, sous peine de voir une traînée laissée par 
son déplacement. Cette bordure doit être placée sur le côté opposé 
à la direction du déplacement. Dans le cas de la flèche, la bordure 
était placée à gauche, car celle-ci se déplaçait vers la droite. 
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Si on décide de déplacer une figure dans plusieurs directions, il 
faut définir un caractère qui sera combiné par l'intermédiaire d'une 
instruction EXOR pour chaque direction de déplacement et l’utiliser 
pour l'affichage. 


I n’est pas obligatoire de se confiner à des caractères uniques, bien 
qu'ils soient plus faciles à manipuler. Ce programme dessine une ‘’voi- 
ture’ composée de trois caractères et de leurs trois caractères EXOR 
correspondants. La voiture se déplace sur l'écran derrière les blocs 
jaunes et devant les blocs cyan : 

10 MODE 1 

20 GOSUB 1000 

30 GOSUB 2000 

40 GOSUB 3000 

50 TAGOFF 

60 PRINT CHRS( 23) CHRS(O); 
70 END 


998 REM la couleur d'avant plan est jaun 
e 


1000 INK 3,24 

1010 y=100: colour=1 

1020 FOR x=100 TO 500 STEP 50 

1030 GOSUB 4000 

1040 NEXT 

1050 RETURN 

2000 SYMBOL 240, 0,15, 28, 124,127,18,12,0 


2010 SYMBOL 241,0, 255, 120, 120, 255, 255, 0, 
0 


2020 SYMBOL 242, 0,128, 192,254, 254, 72,48, 
0 


2030 SYMBOL 243, 0,16, 36,132,128,55, 20,0 
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2040 SYMBOL 244, 0, 0, 137, 137, 0,1,0,0 
2050 SYMBOL 245,0, 128,64, 2, 2,216, 80,0 
2060 car$=CHRS( 240) +CHR$S(241) +CHRS( 242) 


2070 exorcar$=CHR$S(243) +CHRS( 244) +CHRS( 2 
45) 


2080 RETURN 

3000 PRINT. CHRS(23)CHRS(1); 

3010 TAG 

3020 xprint=0: yprint=116 

3030 FOR xcoord=xprint TO 550 STEP 2 
3040 MOVE xcoord, yprint 


3050 IF xcoord=xprint THEN PRINT car$; EL 
SE PRINT exorcars$; 


3055 r$="": HHILE r$="":r$=INKEYS: HEND 
3060 NEXT 
3070 RETURN 


4000 IF colour=1 THEN colour=2 ELSE colo 
ur=1 


4010 FOR xcoord=x TO x+30 STEP 2 
4020 MOVE xcoord, y 

4030 DRAKR O0, 100, colour 

4O4O NEXT 

4050 RETURN 


La ligne 1000 est nécessaire pour attribuer la couleur jaune au che- 
vauchement de la voiture cyan et du bloc jaune. Si l’on remplace 
la commande INK 3,24 par la commande INK 3,6 (couleur normale 
de PEN 3), la voiture devient rouge quand elle traverse le bloc jaune. 

La voiture reprend la couleur du fond quand elle passe sur les blocs 
cyan, parce que les deux couleurs combinées sont cyan et que la 
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combinaison d’un nombre binaire avec lui-même donne toujours la 
valeur O0, couleur du fond en cours. 


0010 Un point cyan 
EXOR 0010 recouvert par un autre point cyan 
0000 donne un point bleu, couleur du fond. 


Figure 5.18 


On pourrait résoudre ce problème en traçant des blocs cyan dans 
une couleur différente et en établissant la couleur INK de telle sorte 
que le chevauchement de la voiture et du bloc ne génère pas cette 
modification de couleur. Mais en mode 1, nous ne disposons que 
de quatre couleurs qui seront rapidement employées. Il existe beau- 
coup plus de possibilités en mode 0, car on dispose alors de seize 
couleurs qui permettent de redéfinir les couleurs PEN pour obtenir 
l'effet désiré. 


10 MODE O0 


998 REM INK 3 couleur jaune cyan/jaune d 
onnent jaune 


999 REM jaune est la couleur d'avant pla 
n 


1000 INK 3,24 


1001 REM INK 6 couleur cyan cyan/blanc d 
onnent cyan 


1002 REM blanc est la couleur de fond 
1003 INK 6,20 

2071 MOYE 0,0 

2072 DRAX 0,0,2 


4000 IF colour=1 THEN colour=4 ELSE colo 
ur=i 


En mode 0, chaque couleur est représentée par quatre bits. La voi- 
ture est affichée à l’aide des instructions PEN 2 et EXOR ; elle peut 
chevaucher soit un bloc jaune (dessiné par PEN 1), soit un bloc rouge 
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(dessiné par PEN 4). Nous devons donc réinitialiser PEN 3, lignes 1000 
et 1001, pour établir la couleur jaune (de telle sorte que la voiture 
semble passer derrière les blocs jaunes), et PEN 6 pour établir la cou- 
leur cyan (pour que la voiture passe devant les blocs rouges). Il est 
possible d'inverser la priorité des couleurs pour que la voiture passe 
devant les blocs jaunes et derrière les blocs rouges : 


998 REM INK 3 cyan cyan/jaune donnent cy 
an 


999 REM jaune est la couleur de fond 
1000 INK 3,20 


1001 REM INK 6 blanc cyan/blanc donnent 
blanc 


1002 REM blanc est la couleur d'avant pl 
an 


1003 INK 6,26 


0010 La voiture cyan 
EXOR 0001 qui chevauche un bloc jaune 
0011 génère le code rouge pour 
PEN 3. 


0010 La voiture cyan 
EXOR 0100 qui chevauche un bloc blanc 
0110 génère un code bleu pour 
PEN 6. 


Figure 5.19 


L'emploi de la commande TAG pose quelques problèmes ; l'affi- 
chage est exécuté dans la couleur du premier plan. Il n’est plus pos- 
sible de modifier cette couleur à l’aide d’une commande PEN, car 
après une instruction TAG, l'ordinateur ne modifie les couleurs qu’en 
obéissant à une commande graphique. 

Avant que la voiture soit affichée dans la couleur cyan, la couleur 
graphique doit être commutée de blanc à cyan. C’est la raison d’être 
des lignes 2071 et 2072, sans lesquelles la voiture serait affichée dans 
la couleur en cours, c'est-à-dire blanc. 
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0000 Bleu Couleur du 4° plan. 
0001 Jaune Couleur du 3° plan. 
0010 Cyan Couleur du 2e plan. 
0011 Cyan Couleur du 2e plan 
cachant le 3° plan. 
0100 Blanc Couleur du 1°° plan. 
0101 Blanc Couleur du 1° plan 
cachant le 2e plan. 
0111 Blanc Couleur du 1°° plan cachant 
le 2e plan cachant les 
autres plans. 


Figure 5.20 : Création des couleurs des différents plans en établissant les paramètres 
appropriés pour la commande INK. 


Le mode 0 offre de nombreuses possibilités grâce à la gamme de 
couleurs dont il dispose. Par exemple, il est possible d'établir les cou- 
leurs des premier, deuxième et troisième plans, comme le montre 
la Figure 5.20. Dans cette figure, le quatrième bit ayant pour valeur 
1 indique la couleur jaune, couleur du troisième plan ; le troisième 
bit établi à 1 indique la couleur cyan, couleur du deuxième plan ; 
le deuxième bit ayant pour valeur 1 indique la couleur blanche, cou- 
leur du premier plan. D'autres combinaisons indiquent une couleur 
qui en occulte une autre. 

L'utilisation de la commande EXOR permet de tracer et d'effacer 
des lignes dans n'importe quelle couleur sans perturber le chevau- 
chement ou les lignes cachées dans d’autres couleurs. Nous allons 
étudier par exemple l'effet d'une commande EXOR sur une ligne 
blanche du premier plan cachant une ligne cyan du deuxième plan, 
qui cache elle-même une ligne jaune du troisième plan. On com- 
mence par effacer la ligne blanche (voir la Figure 5.21) ; que se 
passerait-il si nous avions effacé la ligne cyan (voir la Figure 5.22) ? 


0111 Un point blanc cachant un point cyan 
EXOR 0100 cachant un point jaune. 


0011 L'effacement du premier plan blanc 
révèle le deuxième plan cyan. 


Figure 5.21 
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0111 Un point blanc cachant un point cyan 
EXOR 0010 cachant un point jaune. 
0101 Après effacement du point cyan du 
second plan, le premier plan blanc 
ne cache plus que le troisième plan 
jaune. 


Figure 5.22 


En examinant les résultats de l'effacement d’une ligne, il est possible 
de déterminer quelles sont les commandes INK nécessaires à l’effa- 
cement d’une ligne quelconque sans perturbation apparente pour 
les autres. Cela est visible dans le programme suivant, qui trace et 
colore un rectangle blanc en premier plan, sur un rectangle cyan en 
deuxième plan, qui se trouve lui-même sur un rectangle jaune en 
troisième plan : 


10 MODE 0 

20 GOSUB 1000 

30 GOSUB 2000 

40 GOSUB 3000 

50 PRINT CHRS$S(23)CHRS(O); 

60 MODE 1 

70 END 

999 REM initialisation des crayons (PEN) 
1000 INK 3,20 

1010 INK 5,26 

1020 INK 6,26 

1030 INK 7,26 

1040 RETURN 

1999 REM on dessine 3 rectangles 


2000 xyellon=100: yyellon=40: sideyellon=3 
00 
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2010 xcyan=150: ycyan=80: sidecyan=220 
2020 xrhite=200: yrhite=120: siderhite=140 
2029 REM 

2030 PRINT CHRS(23)CHRS(1); 


2040 colour=1: x=xyellon: y=yyellon: side=s 
ideyellon 


2050 GOSUB 4000 


2060 colour=2: x=xcyan: y=ycyan: side=sidec 
yan 


2070 GOSUB 4000 


2080 colour=4: x=xnhite: y=ynhite: side=sid 
exhite 


2090 GOSUB 4000 

2100 RETURN 

3000 RINDOH 1, 20,25,25 

3009 REM entree des commandes 

3010 HHILE reponseS<>'"e" 

3020 INPUT"'Commande (y/c/x/e)",reponseS 


3029 REM dessin ou effacement du rectang 
le jaune 


3030 IF reponseS="y" THEN colour=1: x=xye 
1lon: y=yyellon: side=sideyellon: GOSUB 400 
[e) 


3039 REM dessin ou effacement du rectang 
le cyan 


3040 IF reponseS="c" THEN colour=2: x=xcy 
an: y=ycyan: side=sidecyan: GOSUB 4000 


3049 REM dessin ou effacement du rectang 
le blanc 


3050 IF reponse$="#" THEN colour=4: x=xrh 
ite: y=yrhite: side=sidenhite: GOSUB 4000 
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3890 HEND 

3900 RETURN 

4000 FOR xcoord=x TO xtside STEP 4 
4010 MOVE xcoord, y 

4020 DRARR O, side, colour 

4030 NEXT 

HO4O RETURN 


La ligne 3020 permet de dessiner ou d'effacer les rectangles jaune, 
cyan et blanc en entrant respectivement les lettres j, c et b (f pour 
fin). Ce programme peut surprendre : en effet, on peut effacer ou 
dessiner le rectangle jaune sans toucher aux deux rectangles qui sont 
‘’devant”’ lui. 


EXERCICES 


1. 


Concevoir un ‘’bateau’” à l’aide d’un ou de plusieurs caractères, ainsi 
qu'un caractère EXOR approprié pour qu’il puisse être déplacé sur 
l'écran. 


. Améliorer le programme précédent pour faire naviguer le bateau dans 


de l’eau bleue et le faire passer devant un certain nombre de récifs 
qui sortent de l’eau. 


. Ajouter des îles derrière lesquelles passe le bateau. 


. Faire naviguer un autre bateau dans la direction opposée. Quand les 


bateaux se croisent, l’un d’entre eux passe derrière l’autre. 


. Modifier l’ordre de priorité des couleurs dans le programme de 
conception de rectangles pour que la couleur jaune devienne la 
couleur du premier plan et la couleur blanche celle du fond. Seul le 
rectangle jaune est visible au départ et le rectangle blanc n'apparaît 
qu'après effacement des deux autres. 


. Ajouter un quatrième rectangle dans une couleur qui devient la couleur 


du premier plan. Ajuster les couleurs définies par l'instruction INK de 
telle sorte que n’importe quel rectangle puisse être dessiné ou effacé 
sans affecter les autres. 
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0 


… ET EFFETS ARTISTIQUES 


Dans le Chapitre 4, nous avons développé un programme qui 
permet à l'utilisateur de dessiner sur l'écran et de sauvegarder le dessin 
obtenu dans un fichier pour un emploi ultérieur. Nous allons l’amé- 
liorer dans ce chapitre et étendre ses possibilités pour pouvoir dessiner 
et colorer des formes standard. 


SÉLECTION D'OPTIONS A PARTIR DU MENU 


Le programme décrit ci-dessus reposait entièrement sur les entrées 
à partir du clavier. La plupart des programmes de ce type affichent 
un menu sur l'écran. Un menu présente à l'utilisateur une gamme 
d'options disponibles ; les options classiques sont par exemple la 
modification de l'échelle, la sélection d’une nouvelle couleur ou le 
dessin d’un cercle où d’un rectangle (voir la Figure 6.1). 

Les sélections dans le menu sont réalisées par le déplacement du 
curseur à la position appropriée sur l'écran. L'ordinateur note la posi- 
tion du curseur et met en œuvre le choix correspondant. Ce proces- 
sus rend le programme beaucoup plus facile à utiliser si les indica- 
tions du menu sont explicites. Il n’est plus nécessaire de savoir quelle 
touche du clavier modifie la couleur de la ligne ou permet de tracer 
un cercle. 

Cependant, si on ne dispose pas d’un autre périphérique d'entrée 
tel qu’une manette de jeu, certains contrôles doivent quand même 
être effectués à partir du clavier ; par exemple, le déplacement du 
curseur à un endroit précis de l'écran. 


| 
Ombrer | Effacer 
sauvegarder | couleur À l'écran 


Charger ou | Modifier la | 





Figure 6.1 : Menu classique d'un programme de dessin. 


Le nouveau programme comporte des options de sélection de la 
couleur de la ligne (huit couleurs y compris la couleur du fond). I 
offre également la possibilité de tracer des lignes uniques, un cercle, 
un triangle ou un rectangle. Une autre option proposera de colorer 
où non une figure. 
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La sélection d’un choix dans le menu est indiquée par la frappe 
de la touche f (point fixé) dès que le curseur passe dans la zone de 
l'option choisie. L'ordinateur émet ensuite un bip. Il est parfois diffi- 
cile de se souvenir du mode de dessin ou de la couleur en cours. 
C'est la raison pour laquelle il existe un système de rappel. Celui-ci 
consiste en un caractère affiché dans l’angle inférieur gauche de 
l'écran, qui indique la situation en cours. Le menu apparaît égale- 
ment en bas de l’écran. 


10 MODE 0Q 
20 GOSUB 1000 


30 GOSUB 2000 

4Q END 

1000 startx=320: starty=200 
1010 x=startx: y=starty 
1020 foregroundeolour=1 
1030 linedrar=0 


1037 REM affichage d'un symbole en bas a 
gauche 


1038 REM afin de montrer la position cou 
rante 


1040 infoS$=CHR$S(47) 

1050 LOCATE 1,24 

1060 PRINT infos; 

1070 menux=5: menuy=24 

1079 REM on definie le triangle 

1080 SYMBOL 240, 0, 2,6, 10,18, 34,66, 254 


1090 SYMBOL 241,255, 129, 129, 129,129,129, 
129,255 


1099 REM exemples de couleurs de PEN O0 a 
7 
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1100 
1110 
1120 
1130 
1140 
1150 
1160 
1169 


1170 


LOCATE menux, menuy 

PRINT CHRS(241); 

FOR colour=1 TO 7 

PEN colour 

PRINT CHR$S(143); 

NEXT 

PEN 

REM affichage de symboles 


PRINT CHRS(47) CHRS( 79) CHR$( 232) CHRS 


(240) CHR$S( 241); 


1180 PRINT CHRS(23)CHRS( 1); 

1900 RETURN 

1999 REM on positionne le curseur 

2000 GOSUB 3000 

IA REM on repete jusqu'a la frappe de 

2010 HHILE reponseS<>"f" 

2019 REM effacement du curseur 

2020 GOSUB 3000 

2029 REM scrutation du clavier 

2030 GOSUB 4000 

2040 GOSUB 3000 

2900 HEND 

2910 RETURN 

2999 REM routine affichage/effacement de 
lignes 

3000 PLOT x,y,foregroundcolour 

3010 IF linedraw=0 THEN RETURN 
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3020 DRAK startx,starty 

3030 RETURN 

3999 REM routine de lecture du clavier 
4000 reponseS$=LOKERS(INKEYS) 

4010 IF reponseS$="a" THEN y=y+2 

4020 IF reponseS="2" THEN y=y-2 

4030 IF reponseS="," THEN x=x-1 

4O4O IF reponseS$="." THEN x=x+1} 


HO48 REM la frappe de la barre d'espacem 
ent positionne les points 


4049 REM 

4050 IF reponseS$=" " AND y>31 THEN COSUB 
S000: linedrax=foregroundcolour 

4060 IF reponse$=" " AND y<32 THEN GOSUB 
6000 


4070 IF reponseS="1" THEN IF linsdrax=0 
THEN linedrax=foregroundcolour ELSE line 
drak=0 : 

4GOG RETURN 

4GQ9Q REM 

5000 PRINT CHRS(23) CHRS(O); 

5010 GOSUB 3G00 

5020 PRINT CHPS(23)CHR$(1); 

6030 startx=x: startyy 

5900 PETURN 

5929 PEM choix, rejet S1 nün conformes 


6060 IF x<128 OP x2543 OP y<i8 THEN PETU 


6010 SOUND 7, 400 
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6019 REM xcoord(384 montre qu'un changem 
ent de couleur est necessaire 


6020 IF x<384 THEN foregroundcolour=TEST 
(x, y): GOSUB 7000: RETURN 


6029 REM on verifie les coordonnees de x 
et on deduit le choix 


6030 IF x<4i6 THEN infoÿ=CHPRS(47): GOSUE 
7000: RETURN 


6040 IF x<44e THEN info$=CHR$( 79): GOSUB 
7000: RETURN 


6050 IF x<480 THEN info$=CHRS( 232}: GOSUB 
7000: RETURN 


6060 IF x<512 THEN infoS$=CHRS( 240): GOSUB 
7000: RETURN 


6070 GOSUB 15000 

6080 RETURN 

7000 PEN foregroundcolour 
7010 LOCATE 1, 24 

7020 PRINT infos 

7030 RETURN 

15000 REM a bientot 


15010 RETURN 


Ce programme permet de déplacer le curseur et d'effectuer des choix 
dans le menu, mais pour l'instant, seule l'option changement de 
couleur fonctionne. 

Un choix de menu est indiqué si la coordonnée y du curseur est 
inférieure à 32 quand un point est fixé. Les lignes 4050 et 4060 pour- 
raient être combinées en une seule instruction IF... THEN...ELSE. Elles 
sont présentées séparément pour plus de clarté. Le sous-programme 
de la ligne 6000 vérifie si la coordonnée x se trouve à l’intérieur de 
la zone de menu, puis il enregistre le choix effectué en fonction de 
cette coordonnée. Le sous-programme de la ligne 7000 affiche le 
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caractère INFO$ dans l'angle inférieur gauche de l’écran ; cette 
variable de chaîne est modifiée à chaque nouvelle sélection, pour 
la mise à jour. 

L'adjonction de formes standard est relativement simple, mais il faut 
étudier avec attention la mise en œuvre de ces choix. Le tracé de 
cercles n’est pas très rapide, comme nous l'avons vu dans le 
Chapitre 3. Il est donc déconseillé de dessiner et d'effacer continuel- 
lement un cercle à l’aide d’une instruction EXOR, car le programme 
serait beaucoup trop lent. Une fois l’option sélectionnée, l'ordina- 
teur opère de la façon suivante : le premier point fixé est considéré 
comme centre du cercle ; le point suivant est un point de la circon- 
férence ; le rayon du cercle est donc égal à la distance séparant les 
deux points. 

Le dessin d’un triangle ou d’un rectangle à l’aide d'une instruction 
EXOR est possible, car il ne concerne que peu de lignes, mais les deux 
options ont un fonctionnement légèrement différent. L'option rec- 
tangle nécessite la définition de deux points, alors que celle du trian- 
gle requiert la définition de trois points. Dans le cas d’un tracé de 
rectangle, sa position dépend de la diagonale tracée entre le premier 
point fixé et le sommet opposé. 


Dans ces deux options, on utilise le déplacement du curseur et plu- 
sieurs lignes doivent être dessinées ou effacées simultanément. Ces 
options doivent donc être représentées par des sous-programmes sépa- 
rés qui font appel au sous-programme de déplacement principal, mais 
pas au sous-programme de dessin et d'effacement de lignes utilisé 
dans le reste du programme. 


4999 REM routine de trace cercle/rectang 
le/triangle 


5000 PRINT CHRS(23) CHRS(O); 

5001 IF circle>O THEN GOSUB 8000 
10e IF rectangle>0 THEN GOSUB 9000 
5003 IF triangle>0 THEN GOSUB 10000 
5010 GOSUB 3000 

5020 PRINT CHR$(23) CHRS(1); 


5030 startx=x: starty=y 
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5900 RETURN 
5999 REM rejet du choix si non conforme 


6000 IF x<128 OR x>543 OR y<16 THEN RETU 
RN 


6010 SOUND 7, 400 


6019 REM xcoord(384 montre qu'un changem 
ent de couleur est demande 


6020 IF x<384 THEN foregroundcolour=TEST 
(x, y): GOSUB 7000: RETURN 


6029 REM on verifie la coordonnee de x p 
our deduire le choix 


6030 IF x<416 THEN infoS$=CHRS(47): GOSUB 
7000: RETURN 


60O4UO IF x<448 THEN info$=CHRS( 79): GOSUB 
7000: circle=1: RETURN 


6050 IF x<480 THEN infoS$=CHRS$S(232): GOSUB 
7000: rectangle=1: RETURN 


6060 IF x<512 THEN info$=CHR$( 240): GOSUB 
7000: triangle=1: RETURN 


6070 GOSUB 15000 

6080 RETURN 

7000 PEN foregroundcolour 
7010 LOCATE 1,24 

7020 PRINT infos 

7025 IF x<384 THEN RETURN 
7029 REM nouveau choix 
7030 circle=0 

7040 triangle=0 

7050 rectangle=0 

7060 RETURN 
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7999 
8000 
8009 
8010 
8020 
8030 
8040 


8050 


REM routine de trace du cercle 
IF circle=1 THEN circle=2: RETURN 
REM 
xd=ABS(x-startx):yd=ABS(y-starty) 
radius=SQR(xd*xdtyd*yd) 

MOVE startx,startytradius 

FOR angle=0 TO 2*PI STEP PI1/60 


DRAR startxtradius*SIN(angle),start 


ytradius*COS( angle) 


8060 
8070 
8080 
8090 
8100 
8999 


9000 
URN 


9010 
9020 
9030 
9040 
93050 
96060 
9070 


9989 


NEXT 

DRAR startx,startytradius 

PLOT startx, starty,0 

circle=1 

RETURN 

REM routine de trace du rectangle 


IF rectangle=1 THEN rectangle=2:RET 


MOYE startx,starty 

DRARR x-startx, 0, foregroundcolour 
DRAHR O,y-starty 

DRARR startx-x,0 

DRA4R O0, starty-y 

rectangle=1 

RETURN 


REM routine de trace du triangle 


10000 IF triangle=1 THEN triangle=2: x1=x 
: y1=y: RETUPN 


— 171 - 


10010 IF triangle=2 THEN triangle=3: RETU 
BN 


10020 MOVE x, y 


10030 DRAN startx,start;,lforegroundeclou 
rc 


10640 DFA x1,y1 
10050 DRAH x,7y 
10060 triangle=i 
10070 RETUPN 

15000 R£M a bientot 


15010 RETURN 


* — point fixé 
© — positions possibles pour le sommet opposé diagonalement 
--- — lignes non fixées 


Figure 6.2 : On fixe la position d’un rectangle en déterminant seulement deux de ses 
sommets. 
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LA 
/ \ 
/ \ 
/ \ 
/ \ 
/ \ 
/ 
/ \ 
/ \ 
sd \ 
/ \ 
‘ 
, \ 
7 \ 
/ \ 
A 
ÿ \ 

/ \ 

LA \ 

cd \ 

/ 

£ \ 
/ \ 
/ \ 
\ 
PA L 

/ \ 


* — point fixé 
© — point non fixé 
--- — lignes non fixées 
—— — lignes fixées 


Figure 6.3 : Avant la définition du troisième sommet d'un triangle, deux de ses côtés 
ont une position indéterminée. 


La sélection de l'option dessin de cercle, de rectangle ou de triangle 
est indiquée par le chiffre 1. Le sous-programme de la ligne 7000 est 
étendu pour que la sélection d’une option quelconque mette les indi- 
cateurs des autres options à 0 ; sinon, l'ordinateur pourrait essayer 
de dessiner en même temps un triangle, un rectangle et un cercle. 
La ligne 7025 permet de ne pas réinitialiser les indicateurs si le choix 
du menu ne concerne que la modification de la couleur. 

Étant donné que les trois options de dessin de figures ne seront mises 
en œuvre qu'une fois fixé le nombre correct de points, la vérifica- 
tion de ces options est placée à l’intérieur du sous-programme 5000 
qui fixe les points. Si l'indicateur d’une option particulière est supé- 
rieur à O, le sous-programme lui correspondant est appelé lignes 5001 
à 5003. 

Les sous-programmes de dessin des lignes 8000, 9000 et 10000 ont 
une chose en commun : si le nombre de points fixé depuis la sélec- 
tion de l'option n’est pas assez grand, la valeur de l'indicateur est 
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augmentée de 1 pour indiquer un autre point fixé, puis le sous- 
programme se termine, lignes 8000, 9000, 10000 et 10010. En fait, 
l'indicateur est également utilisé comme compteur pour montrer 
combien de points ont déjà été fixés. Il faut fixer deux points pour 
les options cercle et rectangle et trois points pour l'option triangle. 
Après cela, le sous-programme dessine la figure et donne à l’indica- 
teur la valeur 1. Cela signifie par exemple, si l'option dessin de cercle 
a été sélectionnée, que le cercle continuera à être dessiné jusqu’à 
ce qu’une autre option soit choisie. 

La structure du programme permet d'ajouter au menu d’autres 
options de dessin de figures, pour dessiner par exemple des ellipses 
ou des losanges. 







EXERCICES 





1. Étendre la gamme des couleurs affichées par le menu à dix couleurs. 


2. Introduire dans le menu une commande d’effacement d'écran. Celle-ci 
attribue à l'ensemble de la zone graphique la couleur du premier plan. 


3. Ajouter une nouvelle option de dessin de figures permettant de dessiner 
des arcs de cercle. Il faut définir trois points, le centre du cercle auquel 
appartient cet arc ainsi que le début et la fin de l'arc. 


COLORATION DES FIGURES 


Nous arrivons maintenant au sous-programme de coloration des 
figures. L'Amstrad possède une commande qui permet de remplir 
des zones de dessin avec une couleur.déterminée. C’est la commande 
WINDOW, mais malheureusement, elle ne sert qu'avec les coordon- 
nées texte. Par conséquent, il nous faut concevoir notre propre 
méthode de coloration. Pour être sûr de colorer l’ensemble d’une 
figure, il faut considérer chacun de ses points. Nous allons procéder 
par étapes en concevant un sous-programme qui colorera chaque 
point d’une ligne puis en l’étendant. 

On prend un point arbitraire à l’intérieur de la figure. Il est possible 
de colorer tous les points qui se trouvent sur la même ligne en pro- 
cédant en deux temps. Tout d'abord, le point placé à gauche de la 


SAT E 


position en cours est examiné à l’aide de la commande TEST. Si celui-ci 
est affiché dans la couleur du fond, il est tracé dans la couleur du 
dessin. Ce point devient alors le nouveau ‘point de départ” et le point 
placé à sa gauche est examiné à son tour. Le processus est répété 
jusqu’à ce qu’un point d’une couleur différente de la couleur du fond 
soit rencontré ; ce point (voir la Figure 6.4) correspond à un point 
du contour de la figure. 


Q 006080 0 0e @ © 
Æ—— ——————— 
direction de tracé 
O— point de départ 


@- point tracé 
@=— point extrême dans une couleur différente de celle du fond 


Figure 6.4 


Effectivement, une ligne a été tracée à partir du point initial vers 
la gauche et jusqu’au contour de la figure. Les autres points de la 
ligne peuvent être colorés en reprenant le processus au point de 
départ, mais en examinant cette fois les points placés à droite. Le sous- 
programme suivant utilise cette procédure : 


1 REM ce programme peut etre incorporer 
au 


2 REM programme principal et fonctiooner 
comme 


3 REM un sous-programme 
10 MODE O0 


19 REM dessinez votre figure ici - un tr 
iangle 


20 MOVE 200,100 
30 DPAK 450, 350 
4O DRAK 340, 400 


50 DRAKH 200,100 
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54 REM on place 10 points au hasard 
55 FOR count=1 TO 10 


60 rand=INT(RND(1) *230) : xhere=210+trand: y 
here=110+trand 


70 foregroundcolour=1: yfill=yhere 
79 REM les points a gauche 

80 xinc=-4: xfill=xhere 

90 GOSUB 18000 

98 REM maintenant ceux de droite 
100 xinc=4: xfill=xhere-4 

110 GOSUB 18000 

120 NEXT 

130 END 

18000 t=0: HHILE t=0 

18010 xfill=xfill+txine 

18020 t=TEST(xfill,yfill) 


18028 REM si t=0 le point est dans la co 
uleur du fond 


18029 REM et doit etre affiche 


18030 IF t=0 THEN PLOT xfill,yfill,foreg 
roundcolour 


18040 REND 


18050 RETURN 


Le sous-programme de la ligne 18000 est appelé deux fois avec des 
paramètres différents pour les coordonnées x : initialement, l’incré- 
ment est —4 (examen des points placés à gauche) puis +4 (examen 
des points placés à droite). On remarque que cet incrément varie en 
fonction du mode ; la résolution en mode 1 est supérieure et un incré- 
ment de + ou —2 est nécessaire. 


— 176 - 


Que se passe-t-il si le point se trouve en dehors de la figure ? Mal- 
heureusement, la commande TEST n’est pas très utile dans ce cas 
et une des autres possibilités de l’Amstrad complique les choses ; si 
le point initial ne se trouve pas à l’intérieur d’une figure fermée, l’Ams- 
trad continue à examiner des points placés à gauche, même s'ils sont 
en dehors de l'écran. La commande TEST enregistre un point placé 
en dehors de l'écran comme étant affiché dans la couleur du fond 
et l'ordinateur considère l'examen des points comme n'étant pas ter- 
miné ; il continue à prendre 4 comme incrément de déplacement 
sur la ligne, quelle que soit la valeur de x. 

Il existe plusieurs façons de remédier à ce problème. On peut inclure 
un test de la valeur de xcoul : 


59 REM point place aleatoirement mais en 
dehors du triangle 


18000 t=0: HHILE t=0 AND xfil11>0 AND xfil 
1<639 


Évidemment, cela ralentit le programme, car la coordonnée x de 
chaque point doit être testée. Il existe une autre possibilité plus rapide, 
qui consiste à dessiner une figure près du bord de l'écran ; l’ordina- 
teur arrête de tracer des points lorsqu'il atteint ce bord, puisque le 
point suivant apparaît dans une couleur différente de celle du fond. 

Le programme permettant de colorer des lignes uniques est complet, 
nous allons l'améliorer pour qu'il puisse colorer une figure. Il existe 
une méthode qui examine les points placés immédiatement au-dessus 
et au-dessous de la ligne qui vient d’être colorée. Si un point est affi- 
ché dans la couleur du fond, ses coordonnées peuvent être stockées 
dans un tableau pour qu'il serve de point de départ d’une ligne 
dessinée ultérieurement (voir la Figure 6.5). 


00000 
O 


Q © 
200 0000 Les coordonnées de ces points sont stockées 
2200000006 dans un tableau pour qu'ils puissent être colorés 
00000000 ultérieurement. 


O= points de la couleur du fond 
@- points tracés 
&- point extrême d'une couleur différente de celle du fond 


Figure 6.5 
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On a l'impression qu'il suffit de tester les points jusqu’à en trouver 
un de la couleur du dessin, mais certaines formes nécessitent le test 
de chaque point comme dans la Figure 6.6. Seules certaines parties 
verticales de la figure seront colorées, sauf si chaque point situé au- 
dessus de la ligne a été vérifié. Ces vérifications sont assez longues 
et il faut faire un choix entre l'efficacité et la perfection : est-il préfé- 
rable d'utiliser un programme de coloration rapide mais imparfait, 
ou un programme plus lent qui colore tous les points de la forme 
quelle qu’elle soit ? 

Un programme imparfait qui colore cependant avec succès de nom- 
breuses formes nécessite seulement la vérification de quatre points. 


10 MODE O 


14 REM on dimensionne un tableau pour le 
s coordonnees des points non colores 


15 DIM x( 300), y( 300) 

19 REM on dessine la figure 
20 startx=150: starty=150 

30 MOVE startx, starty 

40 DRAHR 100,0 

50 DRARR 0,100 

60 DRAKR -100,0 

70 DRARR O,-100 


78 REM x et y sont les coordonnees d'un 
point 


80 x=200: y=200 

90 foregroundcolour=1 

100 GOSUB 15000 

110 PRINT CHRS(23)CHRS$S(O); 
999 END 


15000 begin=2: finish=1 
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15010 
15020 
15030 
15040 
15050 
15060 
15070 


15080 


xfill=x: yfill=y 
x(2)=x: y(2)=y 

PRINT CHRS( 23) CHRS( O); 
PLOT x,y,0 

GOSUB 16000 

GOSUB 17000 

PRINT CHRS(23)CHRS(1); 


IF circle>O OR rectangle>0 OR tria 


ngle>0 THEN PLOT x, y, foregroundcolour 


15090 
15999 
16000 


16010 
N 


16020 
16029 
16030 
16040 
16050 
16060 
16070 


16999 


RETURN 
REM on verifie la couleur du point 
xhere=xfill:yhere=yfill 


IF TEST(xfill,yfill)<>0 THEN RETUR 


xinc=-4 

REM 

GOSUB 18000 
xfill=xhere-4: yfill=yhere 
xinc=4 

GOSUB 18000 


RETURN 


REM creation d'une liste pour y me 


ttre les points 


17000 
17010 
17020 
17030 


17040 


HHILE begin<>(finish+1)MOD 300 
xfill=x(begin):yfill1=y( begin) 
begin=(begin+1) MOD 300 

GOSUB 16000 


REND 
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17050 RETURN 

18000 t=0: RHILE t=0 
18010 xfill=xfill+xine 
18020 t=TEST(xfill,yfill) 


18030 IF t=0 THEN PLOT xfill, 


fi 
roundecolour Ho 


18040 REND 
18050 xfill=xfill-xinc: yfill=yfill-2 


18060 IF TEST(xfill,yfill)=0 THEN 
Sa0e Û GOSUB 


18070 yfill=yfill+4 


18080 IF TEST(xfill,yfill)=0 THEN COSUB 
19000 


18090 RETURN 


18999 REM sauvegarde des coordonnes de p 
oints non colories afin de les colories 
ulterieurement 


19000 finish=(finish+1) MOD 300 
19010 x(finish)=xfill:y(finish)=yfill 
19020 RETURN 


On fait tourner le programme avec différentes formes. Il n’examine 
que les points placés diagonalement au-dessus et au-dessous de la 
ligne. Étant donné qu’un certain nombre de lignes seront colorées, 
les coordonnées de leurs extrémités sont sauvegardées dans les 
tableaux x) et y(. Deux pointeurs, ‘‘début’’ et ‘fin’, indiquent les 
positions dans le tableau ; ‘’début’’ donne le nombre d'éléments du 
tableau contenant les coordonnées (x,y) du point suivant à exami- 
ner, et ‘‘fin’’ donne le nombre d'éléments du tableau ‘“‘libres’’ dans 
lesquels les coordonnées des nouveaux points non colorés peuvent 
être stockées. 

Par exemple, après le dessin de la première ligne, il est vraisem- 
blable que les quatre points placés au-dessus et au-dessous de cette 
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—— Points les plus récents. 


_ 
I 


Points placés au-dessus de la ligne qui seront colorés. 


2 — Points placés au-dessus de la ligne qui sont déjà colorés; la vérifi- 
cation n'ira pas plus loin. 
3 — Points non colorés et qui le resteront, sauf si chaque point placé au- 
dessus de la ligne est testé. 
Figure 6.6 


ligne apparaîtront dans la couleur du fond ; leurs coordonnées seront 
donc stockées dans les tableaux x() et y(). Le sous-programme de la 
ligne 17000 examine successivement chaque point dont les coordon- 
nées se trouvent dans le tableau et celui de la ligne 16000 établit les 
coordonnées des points placés de part et d'autre. Les points sont colo- 
rés dans le sous-programme de la ligne 18000 jusqu’à ce qu’un point 
d'une couleur différente de celle du fond soit rencontré. Ensuite, les 
lignes 18050 et 18080 vérifient la couleur des points placés diagona- 
lement au-dessus et au-dessous du dernier point coloré et le sous- 
programme de la ligne 19000 les stocke s'ils ont pour couleur la cou- 
leur du fond. 
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* * 


De... 000€ 


@ - points extrêmes 
@ - points tracés constituant la ligne 
+ __ points dont la couleur est vérifiée 


Figure 6.7 


Les lignes 17000 et 19000 contiennent une instruction MOD, car 
les tableaux sont traités de façon circulaire. Évidemment, il est impos- 
sible de connaître le nombre de coordonnées que l'ordinateur doit 
stocker, mais le nombre 300 semble raisonnable. Une figure impor- 
tante et compliquée peut cependant en nécessiter plus ; mais nous 
pouvons éviter d'établir un tableau plus grand en réutilisant les coor- 
données précédentes (cela n’entraîne pas de perte de données car 
les éléments du tableau inférieur ont déjà été examinés auparavant). 

Le sous-programme colore 90 % d’un cercle, mais il est inefficace 
quand l'arc contient des petites lignes horizontales. Celles-ci sont exa- 
minées et reconnues comme des points d’une couleur différente de 
celle du fond : le programme abandonne le dessin, car il ‘’croit’’ être 
arrivé aux limites de la figure. Nous pouvons remédier à ce problème 
sans entraîner une trop grande perte de vitesse en examinant deux 
points supplémentaires. 


15 REM trace d'un rectangle 
20 startx=150: starty=150 
30 MOVE startx, starty 

40 DRARR 100,0 

50 DRAHR 0,100 

55 DRAHR -10,0 

56 DRAHR 0,50 

57 DRARR -60,0 

58 DRAHR O,-50 


60 DRAHR -30, 0 
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70 DRARR O0, -100 
16000 xhere=xfill: yhere=yfij) 


16010 IF TEST( xfill,yfill)oo THEN PETUR 
N 


16020 xinc=-4 

16030 GOSUB 18000 

16032 leftx=xfill 

16040 xfill=yhere-4: yfill=yhere 

16050 xinc=# 

16060 GOSUB 18000 

16062 rightx=xfill 

16065 xfil1=(leftxtrightx} /2: yfill=yhere 
16066 IF TEST(xfill,yfill)=0 THEN GOSUB 
19000 

16067 yfill=yhere+2 


16062 IF TEST(xfill,yfill)=0 THEN GOSUB 
19000 


10070 RETURN 


Ce programme colore des cercles avec succès, mais rencontre des 
difficultés avec certaines formes. La position du point initial déter- 
mine la taille de la zone colorée. Si un problème se pose, le reste 
de la zone peut être coloré à partir d'un nouveau point de départ. 
Par conséquent, le sous-programme semble offrir un bon compro- 
mis entre la vitesse et la perfection. Il peut être incorporé au pro- 
gramme principal de la manière suivante : 


15 DIM x(300), y( 300) 


5031 IF fill=1 8ND circle=0 AND rectangl 
e=0 AND triangle=0 THEN GOSUE 15000 


6070 IF fill=1 THEN fil1=0:fill$=CHR$(24 
1) ELSE Fill=1: fill1$=CHR$S( 233) 
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6080 LOCATE 17,24 
6090 PRINT fil1$; 
6106 RETURN 


8091 IF fil1=1 THEN x=startx: y=starty: GO 
SUB 15000 


9061 IF fil1=1 THEN x=(x+tstartx)/2: y=(y+ 
starty)/2: GOSUB 15000 


10061 IF fil1=1 THEN x=(xtstartx+x1)/3:y 
=(y+tstarty+y1)/3: GOSUB 15000 


La coloration est mise en œuvre à partir du point fixé après le choix 
de l'option. Elle peut opérer en même temps que les options tracé 
de cercle, de rectangle ou de triangle ; dans ce cas, la figure est des- 
sinée et automatiquement colorée par l'ordinateur à partir d'un point 
choisi lignes 8091, 9061 et 10061. L'autre possibilité consiste à utiliser 
cette option pour colorer une autre forme ; ceci est réalisé ligne 5031. 
On remarque qu'il faut sortir de l’option de coloration pour pouvoir 
dessiner des lignes, sinon le programme interprète le choix d’un point 
comme étant la position de départ de la coloration et essaie de colorer 
la totalité de l'écran. | 


EXERCICES 


1. Étant donné que les points sont tracés individuellement dans le sous- 
programme de coloration, il est facile d'employer des combinaisons de 
couleurs pour remplir une figure (ligne 18030). Ajouter une option dans 
le menu qui permette de colorer en deux couleurs sélectionnées. 


. Le programme comporte un défaut ; la coloration s'arrête dès qu’un 
point d’une couleur différente de celle du fond est rencontré. Cela rend 
impossible la coloration d’une forme qui a été tracée sur une zone déjà 
colorée (par exemple, une porte bleue ne peut pas être dessinée sur un 
mur rouge). Modifier le programme pour que cette option colore 
n'importe quelle figure indépendamment des autres couleurs présentes. 


. Améliorer l'algorithme de coloration pour qu'il soit performant quelle 
que soit la forme de la figure. 





SAUVEGARDE DE NOTRE RÉALISATION 





Dans le Chapitre 4, nous avons stocké les coordonnées de points 
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et de lignes dans plusieurs tableaux qui ont été sauvegardés dans un 
fichier. Une démarche similaire peut être appliquée, mais le pro- 
gramme doit subir quelques modifications. 1l nous faut savoir si les 
points étaient utilisés dans les options de tracé de cercles ou de rec- 
tangles et si les figures sont colorées ou non. 

Une autre possibilité consiste à sauvegarder une copie de l'écran 
qui peut être chargée à nouveau pour visualisation ou modification 
à l'aide des options du menu habituelles. Cette méthode présente 
l'avantage de pouvoir être utilisée sans qu’on ait à modifier le 
programme. 

La sauvegarde de l'écran est un exemple de la facilité avec laquelle 
l’Amstrad conserve une copie d'une partie de la mémoire graphique. 
Comme nous l'avons vu précédemment, l'écran est une représenta- 
tion d’une partie de la mémoire RAM. En sauvegardant la zone 
mémoire appropriée, nous stockons effectivement une copie de 
l'écran sur bande. 

L'Amstrad a besoin de certaines informations pour cette sauve- 
garde : les points de départ de la zone à stocker et sa taille, en octets. 
Ces informations sont également sauvegardées pour un chargement 
ultérieur. 

Les sous-programmes de chargement et de sauvegarde sont facile- 
ment incorporés au programme et sont appelés respectivement à partir 
du clavier par la frappe des touches “‘i”” (input : entrée) et ‘’o’’ (output : 
sortie) : 


4080 IF reponseS$="i" THEN GOSUB 11000 
4090 IF reponseS="o" THEN GOSUB 12000 
11000 HINDOK 1, 20, 24,25: PEN 1 

11010 PRINT"pour charger une figure" 
11020 INPUT'"nom de la figure"; pictures 
11030 LOAD pictureS 

11040 CLS 

11050 HINDOH 1,20,1,25 

11060 GOSUB 1000 


11070 RETURN 
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12000 HINDOH 1, 20, 24, 25: PEN 1 
12010 PRINT"pour sauvegarder une figure" 


12020 INPUT"tapez le nom de la figure";p 
ictures 


12030 SAVE picture$, B, &C000, 83FCF 
12040 CLS 

12050 HINDOK 1, 20,1,25 

12060 GOSUB 1000 


12070 RETURH 


Le sous-programme de la ligne 12000 exécute la sauvegarde d’un 
fichier écran. Il est impératif que des messages ne soient pas super- 
posés à l’image pendant la sauvegarde de l’écran ; une fenêtre est 
donc établie en bas de l'écran pour supprimer temporairement le 
menu. La ligne 12030 stocke l’image : B signale un fichier binaire 
(format requis pour la sauvegarde d’une zone mémoire), &CO000 est 
l'adresse hexadécimale du début de la mémoire écran qui est cons- 
tituée de &3FCF octets. Après le stockage du fichier, le menu réap- 
paraît et le déroulement du programme continue. 

Le sous-programme de la ligne 11000 charge une figure. Il est sem- 
blable au programme de sauvegarde, bien que la commande LOAD 
de la ligne 11030 ait un format beaucoup plus simple. Le chargement 
d'une figure est très curieux : l’image n’est pas élaborée à partir du 
haut vers le bas comme on pourrait le croire, mais comme une série 
de bandes indépendantes. Cela reflète la complexité de l’organisa- 
tion de l'écran dans laquelle des adresses mémoire qui se suivent 
numériquement correspondent souvent à des zones discontinues. 


EXERCICES 


1. Ajouter une option ‘‘zoom’’ au menu pour que l’image puisse être 
dessinée à une échelle différente. 


. Ajouter un sous-programme qui permette d'entrer du texte à partir du 
clavier et de le positionner à un endroit quelconque de l'écran. 


. Modifier le programme de telle sorte que toutes les couleurs du mode 0 
soient disponibles. 
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TRANSFORMATIONS 


MODIFICATION D'UNE FORME 


Dans les chapitres précédents, nous avons appris à déplacer les 
points et à les visualiser lorsqu'ils se trouvent à la position désirée 
sur l’écran. Cependant, nous pouvons avoir besoin de déplacer une 
figure complète et non un point unique, et ce mouvement concerne 
souvent plus d’un pixel. Dans de nombreuses situations, il est utile 
de pouvoir exécuter une série de transformations sur une figure. 

Nous avons déjà étudié la plus simple des transformations, la trans- 
lation, qui est le déplacement d’un point ou d’un groupe de points 
dans une direction donnée. Tous les contrôles à partir du clavier ser- 
vant à déplacer un point ou un groupe de points vers le haut, vers 
le bas, vers la gauche ou vers la droite provoquent une translation 
d’un pixel dans la direction choisie. Il est facile de modifier le pro- 
gramme précédent pour que des figures entières puissent être 
transformées. 


1 FEM à partir du programme de dessin du 
CH 4 


2 REM on ajoute ou on modifie les lignes 
suivantes 


65 figure=0: moveflag=0: GOSUE 0000 
2010 IF'figure=0 THEN GOSUB 1000 


2065 REM on affiche la figure en tapant 
la barre d'espacement 


2070 IF reponseS=" " THEN IF figure=0 TH 
EN GOSUB 3000: linedran=foregrouncolour E 
LSE figure=0 


2080 IF figure=1 THEN GOSUB 10000 ELSE G 
OSUB 1000 


2083 REM la figure est dessinee quand ‘f 
" est tapee 


2085 IF reponseS="f" THEN GOSUB 1000:1IF 
moveflag=0 THEN GOSUB 11000: moveflag=1 


2036 IF reponse$="f" THEN x=x(nooflines) 
:oldx=x: y=y(nooflines):oldy=y: figure=1 
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8999 REM lecture des donnees 

9000 READ nooflines 

9010 FOR count1=1 TO nooflines 

9020 READ x(count1),y(count1),l1(count1) 
9030 NEXT 

9040 RETURN 

9050 DATA 7, 300, 100, 0, 400, 100, 1, 490, 190, 
ES 
10000 IF oldx=x AND oldy=y THEN RETURN 
10009 REM on efface l'ancienne figure 
10010 GOSUB 11000 

10020 changex=x-ol1dx: changey=y-oldy 
10030 oldx=x:o0ldy=y 

10039 REM mise a jour des coordonnees 
10040 FOR loop=1 TO nooflines 


10050 IF changex=0 THEN y(1oop) =y( loop) + 
changey ELSE x( loop) =x( loop) +tchangex 


10060 NEXT 


10069 REM on affiche la figure a la nouv 
elle position 


10070 GOSUB 11000 
10080 RETURH 
11000 FOR l1loop=2 TO nooflines 


11010 IF l(loop)>0 THEN MOVE x(loop),y(1 
oop):DRAK x(1oop-1), yÿ(1oop-1),1(1oop) 


11020 NEXT 


11030 RETURN 
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La translation est la modification la plus simple du programme, mais 
elle est non avenue dans la mesure où l’approche employée n’est 
pas applicable à toutes les autres transformations comme par exemple 
la rotation. Une méthode plus générale utilise les matrices. 


TRANSFORMATION DE MATRICES 


l'est possible d'agrandir, de réfléchir une figure ou de lui faire subir 
une rotation en multipliant les coordonnées de tous ses points par 
les éléments d’une matrice appropriée. Nous allons étudier rapide- 
ment la multiplication de matrices, bien que la compréhension de 
ce processus dépasse largement le cadre de cet ouvrage. 

On peut multiplier deux matrices en multipliant les éléments de 
chaque rangée de la première matrice par ceux de chaque colonne 
de la seconde matrice (voir la Figure 7.1). Dans cet exemple, on 
obtient la matrice finale en ajoutant les résultats de la multiplication 
de chaque élément de la rangée de la première matrice par les élé- 
ments des colonnes de la seconde matrice. La première matrice peut 
contenir plusieurs rangées et plus de deux colonnes, mais cet exemple 
concerne la transformation d’un point unique avec deux coordonnées. 


(3 Px(t2) =(3x2 + 5x1 3x4 + 5x2) 
12 
=(11 2) 


Figure 7.1 


Un certain nombre de matrices différentes peuvent être utilisées 
pour générer une rotation ou pour agrandir une figure. Etant donné 
que le résultat de la multiplication de matrices se présente sous la 
même forme que la matrice à deux éléments initiale, on peut conti- 
nuer à transformer la figure obtenue en la multipliant par une autre 
matrice de transformation, comme dans la Figure 7.2. En fait, le pro- 
cessus peut être simplifié ; on obtient le même résultat en commen- 
çant par multiplier entre elles les deux matrices de transformation 
puis en utilisant la matrice obtenue pour exécuter la transformation 
du point initial comme dans la Figure 7.3. 


— 190 - 


{11 22) È : =(11x1 + 22x3 11+2 + 22*2) 
32 
: =(77 66) 
Figure 7.2 


2) (2 pra + 4x3 2x2 2) 


12/1372 1x1 + 2x3 1x2 + 2x2 
ae a 
7 6 
(35) /14 10 =(3*14 + 5x7 3+12 + 5x6) 
(72) 
=(77 66) 


Figure 7.3 


Le principal inconvénient de l’utilisation de matrices de transfor- 
mation 2*2 est qu'il est impossible de représenter la translation sous 
cette forme. Cela nous empêche d'adopter une méthode générale. 
La translation reste une transformation à part, alors que nous pour- 
rions réduire à une seule matrice la série de matrices nécessaires à 
l'agrandissement, à la rotation et à la symétrie d’une figure. Il est pos- 
sible d'étendre les matrices à 3x3, ce qui permet l’incorporation de 
la translation à l’aide d’une matrice appropriée. Étant donné que nous 
avons déjà étudié la translation, nous allons continuer à utiliser les 
matrices 2*2 et à traiter la translation comme une transformation par- 
ticulière qui n’est pas soumise aux mêmes manipulations matricielles 
que les autres. 


ROTATION 


Deux matrices peuvent être utilisées pour faire exécuter une rota- 
tion à une figure dans le sens des aiguilles d’une montre et dans le 
sens inverse (voir la Figure 7.4). On voit, en comparant les résultats 
de la multiplication, que la seule différence réside dans les signes des 
éléments de la matrice. Si on définit la rotation dans le sens des 
aiguilles d’une montre en attribuant la valeur —1 à la variable ‘’rota” 
et la rotation en sens inverse en lui attribuant la valeur 1, on a une 
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Le] 


ao 


Le triangle 1 subit une rotation de 30° dans le sens des aiguilles d’une montre pour donner 
le triangle 2. 


34 cos 30 — sin 30 = 4.6 2.0 
4 4 sin 30 cos 30 5.5 1.5 
46 : 5.6 3.7 


Le triangle 1 subit une rotation de 20° dans le sens contraire des aiguilles d’une montre 
pour donner le triangle 3. 


34 cos 20 sin 20 = 1.548 
44 Le 20 cos 20 2.4 5.1 
36 0.8 6.7 


Forme générale d’une rotation de 6 degrés dans le sens des aiguilles d’une montre. 


{x y) fcos0 su = (xcosô + ysin0 —xsin8 + ycos6) 
sin® cosô 


Forme générale d'une rotation de 6 degrés dans le sens contraire des aiguilles d’une montre. 


(x y) cos8 sin0 | = (xcos0 + ysin0 —xsin0 + ycos8) 
— sin8 cos0 
Figure 7.4 
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équation unique qui génère les coordonnées des rotations dans un 
sens quelconque, comme le montre la Figure 7.5. 

Il est possible d'étendre le programme précédent qui permettait 
la translation d’une figure pour qu’il génère également la rotation : 


2083 REM dessin de la figure quand ‘f' e 
st tapee 


2084 REM rotation quand ‘t' est tapee 
2085 IF reponseS="f" OR reponseS="t" THE 
N GOSUB 1000:IF moveflag-0 THEN GOSUB 11 
600: movetf lag=1 

2086 IF reponseS="f" OR reponseS="t" THE 
N x=x(nooflines):oldx=x: ;=y(nooflines):0o 
ldy=y: IF reponseS="f" THEN figure=i 

2087 IF reponseS="t" THEN GOSUB 12000 
12000 REM 


12007 REM initialisation des cosinus et 
des sinus 


12008 REM rotation a 5 degres D'interval 
le 


12010 DEG 

12026 transformx=COS(5) 
12030 transformy1=COS(5) 
12040 rotstop$="" 


12049 REM la figure tourne j'usqu'a ce q 
ue ‘t' soit tapee 


12050 RHILE rotstopS<>"t" 

12060 rotstopS$=LORERS(INKEYS) 
12069 REM rotate=sens de rotation 
12070 rotate=0 


12079 REM ‘a'=sens inverse 'c'=sens des 
aiguilles d'une montre 


12080 IF rotstopS="a" THEN rotate=-1 
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12090 IF rotstop$="c" THEN rotate=1 
12100 IF rotate<>0 THEN GOSUB 11000: tran 
sformy=SIN(5)Ârotate: transformxi=-SIN(5) 
Arotate: GOSUB 13000: GOSUB 11000 

12110 HEND 

12120 GOSUB 1000 

12130 RETURN 

13000 FOR loop=1 TO nooflines 


13010 x1=x( loop) -centrex: y1=y( loop) -cent 
rey 


13020 x{ loop) =transformx*x1+transformy*y 
1tcentrex 


13030 y( loop) =transformx1x1+ttransformy] 
Ayitcentrey 


13040 NEXT 
13050 RETURN 


vieux * cos® + rota + vieuy * sin@ 


nouvx = 
nouvx = —rota * vieux * sinô + vieuy * sin0 
Figure 7.5 


On peut modifier le centre de rotation de la manière suivante : 


12000 GOSUE 14000 

14000 centreS$="" 

14010 GOSYB 1000 

14019 FEM on attend la frappe de ‘f‘ 
14020 AHILE centre$<>"F" 


14030 GOSUB 1000 
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14040 centreS$=LOnER$( [NKEYS) 


14040 REM deplacement du centre haut/bas 
/gauche/droite 


14050 IF centreÿ="a" THEN y=yt2 
14060 IF centreÿ="2" THEN ÿ=5y-2 
14070 IF centre$="," THEN x=x-4 
14080 IF centre$="." THEN x=xt+4 
14060 GOSUB 1000 

14106 RAEND 

14110 centrex=x: centreys=y: GOSUSE 
14120 RETURN 


AGRANDISSEMENT ET RÉDUCTION 


Nous avons vu, dans un chapitre précédent, que l'agrandissement 
et la réduction d’une figure sont relativement faciles à réaliser. La 
méthode utilisant les matrices permet d'introduire certains agrandis- 
sements intéressants comprenant une variation du facteur d'échelle 
dans les directions x et y (voir la Figure 7.6). Nous allons ajouter cette 


possibilité à notre programme : 


2077 


2080 
OSUB 


2082 
te" 


REM 
est 


2083 PREM 
st tapee 


2024 PEM 


1000 


REM dessin ou effacement figure 


IF figure=1 THEN GOSUB 10000 ELSE G 
1000 


modification de l'echelle quand 


tapee 


dessin de la figure quand ‘f' e 


rotation quand ‘t' 


est tapee 


2085 IF reponseS="f" OR reponseÿ="t" OR 
reponseS$="s" THEN GOSUB 1000: IF moveflag 
=0O THEN GOSUB 11000: moveflag=1 


— 195 - 


2036 IF reponseÿ="{" OR reponseS$="t" OP 
reponseS="s" THEN x=x{nooflines):oldx=x: 
y=y{nooflines): oldy=y: IF reponseS="f" TH 
EN figure=1 

20837 IF reponse$="t" THEN GOSUB 12000 
2088 IF reponseS="s" THEN GOSUB 15000 
15010 transtormy=0 

15020 transformxi=0 

15030 scalestopiÿ="" 


15032 REN on modifie l'echelle jusqu'a 1 
a frappe de ‘s' 


15040 KHILE scalestopÿso>"s" 
15050 £scalestopS:LONERSI INKETS: 
15060 transfoimx=0 


150%0 IF saclestop$="e" THEN transrormx= 


i. 1: transFormy1:1.1 


156080 IF saclzstops="ir" THEN transtormx= 


9.2: transformy;12=0. 9 


15090 IE transrormx<>0 THEN GOSUS 11000: 
GOSUE ‘ii 3000: SCSUE 11000 


15100 &EtD 
15110 GOEUE 1006 


15120 BETÜRN 


Comme auparavant, il est préférable de pouvoir sélectionner le 
centre de l'agrandissement ou de la réduction : 


15000 GOSUB 14000 
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L'agrandissement du triangle 1 est illustré par le triangle 2. 


31 20 = 62 
51 02 102 
64 


La modification de la diagonale conduit à un ‘’étirement”’ parallèlement à un des axes. 


31 10 = /33 

51 03 53 

32 3 6 
Forme générale d'un changement d'échelle ou d'un ‘’étirement”. 
{x y) (rs 0 ] = (ni x x n2 x y) 


0 n2 


Figure 7.6 


SYMÉTRIE 


La symétrie par rapport à l’abscisse ou à l’ordonnée peut être exé- 
cutée à l’aide des matrices de la Figure 7.7. Comme pour la rotation, 
les matrices diffèrent par le signe de certains de leurs éléments. La 
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réflexion n’est visible que si les axes sont déplacés, sinon le résultat 
est tracé en dehors de l'écran : 


2081 REM image symetrique quand ‘m' est 
tapee 


2082 REM modification echelle quand ‘'s' 
est tapee 


2083 REM trace de la figure quand'f' est 
tapee 


2084 REM rotation quand ‘t' est tapee 


2085 IF reponseS="f" OR reponseS="t" OR 
reponses="s" OR reponseS="m" THEN GOSUB 
1000: 1F moveflag=0 THEN GOSUB 11000: move 
flag=i 


2066 IF reponseÿ="f" OR reponseÿ="t" OR 
reponse$="s" OR reponseÿ="m" THEN x=x(no 
oflines):oldx=x: y=y(nooflines)i:oldy=y:1F 
reponseS="f" THEN figure=1 


2 


087 IF reponse$="t" THEN GOSUB 12000 


Le 


2038 IF reponseÿ="s" THEN GOSUB 15000 


15996 REM l'axe de reflexion est vertica 
1 ou horizontal 


15997 REM on indique sa position en depl 
acant le point puis en tapant x ou v 


16000 GOSUE 14000 

16010 axis$="" 

16020 HHILE axis$<>"x" AND axisÿ<>"y" 
16030 axis$S=LONERS(INKEYS) 


16040 IF axis$="x" THEN transformx=1: tra 
nsformy1=-1 


16050 IF axis$="y" THEN translormx=-i:tr 
ansformy1=1 


16060 KEND 
16070 GOSUB 11000: GOSUB 13000: GOSUB 1100 
(e) 


— 198 - 


16086 GOSUB 1000 


10090 RETURN 


Il 


(x y) 1 0 ] (x —y) (symétrie sur l'axe des x) 
0 -1 

(xy) —1 0 

0 1 


(—x y) (symétrie sur l'axe des y) 


Figure 7.7 


La symétrie par rapport à une ligne quelconque est plus complexe 
et nécessite d’autres transformations : par exemple, la translation d’un 
des axes, x ou y: 


2034 REM deplacement de la figure quand 
"p' est tapee 


2085 IF reponseÿ="f" OR reponses="t" Of 
reponseÿ="s" OR reponse$S="m" OR reponses 
="p" THEN COSUB 1000:1IF moveflag=0 THEN 
GOSUE 11000:moveflag=1 

2086 IF reponse$="f" CR reponseÿ="t" OR 
reponse$="s" OR reponseÿ="m" OR reponses 
z"p" THEN x=x! nooflines):oldx=x: y=y(noof 
lines):o1dy=;: IF reponseS$="f" THEN Ffigur 
e=1i 

2087 IF reponse$="t" THEN GOSUB 12000 
2088 IF reponseÿ="s" THEN GOSUB 15000 
2089 IF reponseÿ="m" THEN CGOSUB 16000 
2030 IF reponseS="p" THEN GOSUB 17000 
209$ KEHD 

17000 GOSHB 14000 

17010 axis$="" 


17020 transFormx=1 


17030 transformyis1 
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17040 HAHILE ax1is$<>"x" AND axisi<>"y" 
17050 axisS$=LORERS(IHKETS) 


17060 IF axis5="x" THEN transtormx1=0:tr 
ansformy=i 


17070 IF 3x1i55="y" THEN transformxi=1:tr 
ansformy=0 


17020 AEND 





EXERCICES 


1. Les transformations du programme sont toutes exécutées sur une figure 


4. Certains programmes d’aide à la conception graphique contiennent des 








dont les coordonnées sont lues à partir d'instructions DATA. Ajouter 
des sous-programmes au programme de transformation pour que l’on 
puisse dessiner une figure puis la transformer. 







. Modifier le programme pour inclure une option permettant de visualiser 
les positions précédentes de la figure pendant sa transformation. 





. Les différentes matrices de transformation peuvent également être 
employées pour générer des modèles. Nous avons déjà évoqué cela 
dans le Chapitre 4, lorsque nous avons étudié la rotation répétitive et 
l'agrandissement d’une figure. Écrire un programme qui permette de 
spécifier une où plusieurs transformations à effectuer sur une figure. On 
peut également choisir le nombre de répétitions de la transformation 
sur la nouvelle figure dessinée. Une fois la transformation définie, 
l'ordinateur exécute sa tâche de façon répétitive et affiche les figures 
obtenues. Chaque figure peut être dessinée dans une couleur différente. 













formes standard. L'utilisateur peut ‘‘prendre’’ une forme dans le menu, 
la déplacer à l’aide du curseur puis la “fixer”. Écrire un programme de 
ce type qui facilite le dessin d’une maison. Inclure comme formes 
standard plusieurs types de portes et de fenêtres. 
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